comando em tempo de execução
Salve Galera
Minha primeira postagem
Sou novo aq e novo em delphi, por isto não reparem as perguntas primárias
To criando uns button em tempo de execução, ta dando certo mas não to encontrando um jeito de inserir comando nestes buttons ... tipo close; open; showmessage ...
Tentei assim:
Button := TButton.Create(F_Principal);
with Button do
begin
Parent := F_Principal;
height := 25;
width := 100;
caption := UpperCase (edit3.text);
left := 20;
top := z;
font.Style:= [fsBold];
OnClick:= click;
end;
end;
criei uma um evento click e tentei colocar no evento onclick do button, mas não reconheceu....
como eu faço isto ?
To no aguardo ...
Vlw...
Minha primeira postagem
Sou novo aq e novo em delphi, por isto não reparem as perguntas primárias
To criando uns button em tempo de execução, ta dando certo mas não to encontrando um jeito de inserir comando nestes buttons ... tipo close; open; showmessage ...
Tentei assim:
Button := TButton.Create(F_Principal);
with Button do
begin
Parent := F_Principal;
height := 25;
width := 100;
caption := UpperCase (edit3.text);
left := 20;
top := z;
font.Style:= [fsBold];
OnClick:= click;
end;
end;
criei uma um evento click e tentei colocar no evento onclick do button, mas não reconheceu....
como eu faço isto ?
To no aguardo ...
Vlw...
Vilson Pereira
Curtidas 0
Respostas
Vilson Pereira
05/12/2009
Pessoal, desculpa o "up", mas ninguem sabe como fazer isto ???
To precisando muito ....
vlw ....
To precisando muito ....
vlw ....
GOSTEI 0
Robson Catunda
05/12/2009
Dê uma olhada em
http://forum.devmedia.com.br/viewtopic.php?t=94460&highlight=
GOSTEI 0
Raimundo Melo
05/12/2009
Mostre o evento que vc criou, ficaria mais fácil para os colegas.
A princípio o seu evento deveria ficar assim:
Procedure click(Sender:TObject):
Begin
End;
Espero ter ajudado.
A princípio o seu evento deveria ficar assim:
Procedure click(Sender:TObject):
Begin
End;
Espero ter ajudado.
GOSTEI 0
Vilson Pereira
05/12/2009
Vlw pela atenção pessoal ...
Seguinte, eu fiz assim ... (ctrl c + ctrl v)....
begin
Button := TButton.Create(F_Principal);
with Button do
begin
Parent := F_Principal;
height := 25;
width := 100;
caption := UpperCase (edit3.text);
left := 20;
top := z;
font.Style:= [fsBold];
OnClick:= cl
end;
end;
declarei o Button, x, z tudo direitinho
onde esta "cl" é onde eu tento colocar o evento "click", eu coloco "cl" e aperto ctrl + espaço para abrir o menu de eventos, mas não abre, ou seja, não reconhece ... se eu coloco "cl" em outro lugar como assim
procedure TF_Configuracao.BitBtn2Click(Sender: TObject);
begin
cl
end;
e aperto ctrl + espaço, o menu abre e o evento "click" esta la pra eu seleciona-lo ....
o enento click ta bem simples ... ta assim ...
procedure TF_Configuracao.click(Sender: TObject);
begin
showmessage('COMANDO INSERIDO COM EXITO !!!');
end;
Oq será q ta faltando ?
Dei uma olhada no link q o Robson me passou e pelo oq eu vi, ta tudo certo !!!
Qualquer informação q ajudar é só pedir q eu posto ....
Seguinte, eu fiz assim ... (ctrl c + ctrl v)....
begin
Button := TButton.Create(F_Principal);
with Button do
begin
Parent := F_Principal;
height := 25;
width := 100;
caption := UpperCase (edit3.text);
left := 20;
top := z;
font.Style:= [fsBold];
OnClick:= cl
end;
end;
declarei o Button, x, z tudo direitinho
onde esta "cl" é onde eu tento colocar o evento "click", eu coloco "cl" e aperto ctrl + espaço para abrir o menu de eventos, mas não abre, ou seja, não reconhece ... se eu coloco "cl" em outro lugar como assim
procedure TF_Configuracao.BitBtn2Click(Sender: TObject);
begin
cl
end;
e aperto ctrl + espaço, o menu abre e o evento "click" esta la pra eu seleciona-lo ....
o enento click ta bem simples ... ta assim ...
procedure TF_Configuracao.click(Sender: TObject);
begin
showmessage('COMANDO INSERIDO COM EXITO !!!');
end;
Oq será q ta faltando ?
Dei uma olhada no link q o Robson me passou e pelo oq eu vi, ta tudo certo !!!
Qualquer informação q ajudar é só pedir q eu posto ....
GOSTEI 0