Guest - Paulo - Postado Maio 20, 2006 Denunciar Share Postado Maio 20, 2006 to aprendendo mecher em delphi e fiz isso mais não funciona unit uteste;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject); begin if btn1.enabled = true then begin btn1.Enabled :=false; btn2.Enabled :=true; btn1.Caption :='OFF'; btn2.Caption :='ON';end; procedure TForm1.btn2Click(Sender: TObject); begin if btn2.enabled = true then begin btn2.Enabled :=false; btn1.Enabled :=true; btn2.caption :='OFF'; btn1.caption :='ON';end;end.alguém sab porque? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 maikel Postado Maio 20, 2006 Denunciar Share Postado Maio 20, 2006 Olá...Um aspecto importante onde você precisar tomar muito cuidado é quando você inicia um begin no meio de uma procedure... veja o erro que você está cometendo:procedure TForm1.btn1Click(Sender: TObject);begin//>>>>Begin da Procedureif btn1.enabled = true thenbegin//>>>Begin do Ifbtn1.Enabled :=false;btn2.Enabled :=true;btn1.Caption :='OFF';btn2.Caption :='ON';end;//>>>Fim do Begin do IfEND;//>>>>Você precisa fechar o Begin da Procedureprocedure TForm1.btn2Click(Sender: TObject);beginif btn2.enabled = true thenbeginbtn2.Enabled :=false;btn1.Enabled :=true;btn2.caption :='OFF';btn1.caption :='ON';end;End;//Faltou mais um EndCerto....????Att..Maikel Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest - Paulo -
to aprendendo mecher em delphi e fiz isso mais não funciona
unit uteste;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
if btn1.enabled = true then
begin
btn1.Enabled :=false;
btn2.Enabled :=true;
btn1.Caption :='OFF';
btn2.Caption :='ON';
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
if btn2.enabled = true then
begin
btn2.Enabled :=false;
btn1.Enabled :=true;
btn2.caption :='OFF';
btn1.caption :='ON';
end;
end.
alguém sab porque?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.