Mega Code Archive

 

Categories / Delphi / VCL

 

Yazının üzerine mouse ile gelindiğinde backgroundun değişmesi

procedure WndProc(var Message : TMessage); override; procedure TForm1.WndProc(var Message : TMessage); begin if Message.LParam = Longint(Label1) then begin if (Message.Msg = CM_MOUSELEAVE) then Label1.Color := clSilver; if (Message.Msg = CM_MOUSEENTER) then Label1.Color := clRed; end; inherited WndProc(Message); end;