fazer o tbutton ter double click

03/07/2008

1

pessoal boa tarde alguém de vcs sabem por um tbutton
com a propriedade dblclick tipow estou criando um botão
dinamico que vc pode mexer na tela mais queria que quando
clicasse uma vez não executasse o onclick para mim poder
mexer ele só executasse o on click quando clicasse duas vezes
igual o win entenderão
abraço galera espero uma resposta
tcháu


Responder

Posts

03/07/2008

Marco Salles

pessoal boa tarde alguém de vcs sabem por um tbutton com a propriedade dblclick tipow estou criando um botão dinamico que vc pode mexer na tela mais queria que quando clicasse uma vez não executasse o onclick para mim poder mexer ele só executasse o on click quando clicasse duas vezes igual o win[u:e764e63e70][b:e764e63e70] entenderão [/b:e764e63e70][/u:e764e63e70] abraço galera espero uma resposta tcháu


hummmmm ... ´dexa vê´

na seccção Private do Form defina a procedure:

procedure MeuButtonDbClick(Sender: TObject);


Escreva

procedure TForm1.MeuButtonDbClick(Sender: TObject);
begin
showmessage(´So para testar mesmo ...);
end;


no evento OnCreate :

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.ControlStyle :=
  button1.ControlStyle + [csClickEvents];
  TForm(button1).OnDblClick:= MeuButtonDbClick;
end;


espero ter sido util . Boa Sorte..


Responder