comando em tempo de execução
05/12/2009
0
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
Posts
13/12/2009
Vilson Pereira
To precisando muito ....
vlw ....
14/12/2009
Robson Catunda
15/12/2009
Raimundo Melo
A princípio o seu evento deveria ficar assim:
Procedure click(Sender:TObject):
Begin
End;
Espero ter ajudado.
15/12/2009
Vilson Pereira
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 ....
Clique aqui para fazer login e interagir na Comunidade :)