Fórum Problema com procedure #207026
16/01/2004
0
[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
Curtir tópico
+ 0Posts
16/01/2004
Marcelo Saviski
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
16/01/2004
Rômulo Barros
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
16/01/2004
Nildo
Gostei + 0
16/01/2004
Marcelo Saviski
Gostei + 0
16/01/2004
Luis Neto
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
Clique aqui para fazer login e interagir na Comunidade :)