OnMouseOver (Labels)

[City Light]

Oder wie wärs damit?

Delphi-Quellcode:

public
   procedure WNDPROC(var message:TMessage);override;


procedure Tform1.WNDPROC(var message:Tmessage);
begin
if message.LParam=Longint(Label1) then
   begin
   if message.Msg=CM_MOUSEENTER then
   label1.Font.Color:=clred;
   if message.Msg=CM_MOUSELEAVE then
   label1.Font.Color:=clblack;
   end;
inherited WNDPROC(message);
end;

Grüße Tino