Buscar por:

Mudar a cor do caption quando o mouse passar por cima

Código

//mudando cor do caption de um bitbtn quando o surso do mouse passar por cima 

{crie o evento do bitbtn onmousemove e isira o seguinte codigo}

procedure TForm1.BitBtn1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);

begin

nomedobitbtn.font.color:=clred;

end;

{crie o evento do form onde se encontra o bitbtn onmousemove e isira o seguinte codigo}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

nomedobitbtn.font.color:=clblack;

end;

//obs:.cuidado o nome desse bitbtn esta como nomedobitbtn

{essa informação tambem serve para maioria dos componetes}

//pronto seu bitbtn esta pronto