Entweder du machst nocheine Prozedure
Delphi-Quellcode:
procedure TFMain.IrgendwasMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=clBlack;
end;
und gibst diese bei allen anderen Komponenten (incl. Form1) an
Ober eben über einen Timer
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
if (p.X >= 0) and (p.Y >= 0) and (p.X < Image1.Width) and (p.Y < Image1.Height) then
Label1.Font.Color := clRed Else Label1.Font.Color := clBlack;
end;
es ginge bestimmt auch über die
VCL-Control-Messages CM_MOUSEENTER und CM_MOUSELEAV.
[add]
@aschne1
du brauchst dabei keine If-Abfrage machen, soweit ich weiß wird intern auch (schon) Eine gemacht.