comando em tempo de execução

05/12/2009

1

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...
Responder

Posts

13/12/2009

Vilson Pereira

Pessoal, desculpa o "up", mas ninguem sabe como fazer isto ???

To precisando muito ....

vlw ....
Responder

14/12/2009

Robson Catunda

Dê uma olhada em   http://forum.devmedia.com.br/viewtopic.php?t=94460&highlight=
Responder

15/12/2009

Raimundo Melo

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.
Responder

15/12/2009

Vilson Pereira

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 ....
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira