Mit Mouse über Image dann Label rot

[himitsu]

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.