Problema com procedure

Delphi

16/01/2004

Estou iniciando o curso de delphi - on-line, e estou c/ problemas logo no 1º exercicio, e gostaria que alguem me socorre-se!!

[b:ab7e9e5b03]procedure TForm1.btn1Click(Sender: TObject);[/b:ab7e9e5b03]
if btn1.Enabled = true then
begin
btn1.Enabled := false;
btn2.Enabled := true;
btn1.Caption := ´OFF´;
btn2.Caption := ´ON´;
end;

procedure TForm1.btn2Click(Sender: TObject);
if btn2.Enabled = true then
begin
btn2.Enabled := false;
btn1.Enabled := true;
btn2.Caption := ´OFF´;
btn1.Caption := ´ON´;
end;

end.


A linha em negrito, é a que estou c/ problemas, espero q vcs possam me ajudar.
Abraços a todos integrantes do grupo, e um bjo a todas as meninas
do Pekeno_Ctba 8)

[b:ab7e9e5b03]Título editado pelo moderador Nildo conforme as regras de conduta do fórum[/b:ab7e9e5b03]


Pekeno_ctba

Pekeno_ctba

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

16/01/2004

Olá, seja bem vindo ao Clube

Vamos lá
todo procedimento ([b:85b8db6e87]procedure[/b:85b8db6e87]) deve estar envolvido em um laço [b:85b8db6e87]begin[/b:85b8db6e87]..[b:85b8db6e87]end[/b:85b8db6e87];

[b:85b8db6e87]procedure [/b:85b8db6e87]NomedoProcedimento;
[b:85b8db6e87]begin[/b:85b8db6e87]
[i:85b8db6e87][color=darkblue:85b8db6e87]//O Código vai aqui[/color:85b8db6e87][/i:85b8db6e87]
[b:85b8db6e87]end[/b:85b8db6e87];

você deve ter deletado esse begin e end;

se você fizer assim, irá funcionar:

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; 
end;


Blz?

OBS: para que a linha fique em negrito, ela tem que começar com um [b:85b8db6e87] e terminar com [/b:85b8db6e87], editei a sua mensagem e coloquei um [/b] no final, quando for colocar formatação em algum texto, sempre coloque ela entre [X] texto [/X], onde X pode ser B para Negrito, I para Italico, etc....


GOSTEI 0
Rômulo Barros

Rômulo Barros

16/01/2004

FAZ ASSIM:

procedure TForm1.btn1Click(Sender: TObject);
if btn1.Enabled = true then
begin
btn1.Enabled := false;
btn2.Enabled := true;
btn1.Caption := ´OFF´;
btn2.Caption := ´ON´;
end;

procedure TForm1.btn2Click(Sender: TObject);
[color=red:e31d4802fc][size=24:e31d4802fc]begin[/size:e31d4802fc][/color:e31d4802fc]
if btn2.Enabled = true then
begin
btn2.Enabled := false;
btn1.Enabled := true;
btn2.Caption := ´OFF´;
btn1.Caption := ´ON´;
end;

end.


GOSTEI 0
Nildo

Nildo

16/01/2004

Mas que erro que dá?


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

16/01/2004

mossa, parece que todo mundo postou ao mesmo tempo, :20, :21 e :21 :)


GOSTEI 0
Luis Neto

Luis Neto

16/01/2004

Caro Pekeno,

Em primeiro lugar em nao desista, pesista os caminhos nao sao fazeis mais e compessador...

Gostaria de saber o que realmente vc tem duvida, pelo que pude analisar os comando vai acontecer o seguinte:

ao clicar no BOTAO Nº 1, o mesmo sera desativado e aparecerar o nome OFF e assim quando clicar no BOTAO Nº o contrario

se isso que queres fazer a linha de comando esta certo...


GOSTEI 0
POSTAR