Um evento para vários botões
29/11/2005
0
Tenho um form com 6 botões. Preciso escrever no evento OnMouseMove e OnMouseLeave, umas instruções. Todos os botões terão, as mesmas coisas, exceto, os nomes de cada botão. Então, o que fiz, criei uma procedure para esses eventos, já q são os mesmos. Existe um parametro na minha procedure, chamado, botoname, que deveria carregar o nome do botão, no momento em q o evento fosse chamado. Vamos tentar exemplificar:
Digamos que tenho dois botões. btNovo e btGravar.
No OnMouseMove do btGravar eu faria:
btGravar.Font.Color:=clBlue; Para eu fazer no btNovo, teria que fazer:
btNovo.Font.Color:=clBlue; O que eu quero é uma procedure assim:
botoname.font.color:=clBlue; onde botoname, levaria o nome do botão que chamasse o evento, tipo, se btGravar, então botoname = btGravar e assim por diante. Desde já grato!!!!
Digamos que tenho dois botões. btNovo e btGravar.
No OnMouseMove do btGravar eu faria:
btGravar.Font.Color:=clBlue; Para eu fazer no btNovo, teria que fazer:
btNovo.Font.Color:=clBlue; O que eu quero é uma procedure assim:
botoname.font.color:=clBlue; onde botoname, levaria o nome do botão que chamasse o evento, tipo, se btGravar, então botoname = btGravar e assim por diante. Desde já grato!!!!
Paulo
Curtir tópico
+ 0
Responder
Posts
29/11/2005
Emerson Nascimento
TButton(Sender).font.color := clBlue;
substitua TButton pela classe utilizada.
substitua TButton pela classe utilizada.
Responder
Clique aqui para fazer login e interagir na Comunidade :)