Array
(
)

Um evento para vários botões

Paulo
   - 29 nov 2005

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!!!!


Emerson
   - 29 nov 2005

TButton(Sender).font.color := clBlue;

substitua TButton pela classe utilizada.