Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
8. Sep 2004
Entweder du machst nocheine Prozedure
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
procedure TForm1.Timer1Timer(Sender: TObject);
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
8. Sep 2004
Leave???
OnMouseMove ist ja, wenn sich die Mouse darüber hinwegbewegt.
wüste nicht, dass es das andere gibt.
Also du könntest allen anderen Komponenten (oder zumindestens den Umliegenden) auch ein onMouseMove-Ereignis zuweisen und dort wieder die Farbe zurücksetzen,
oder du nimmst einen Timer und fragst dort ab, ob die Maus (nicht) drüber ist und machst alles dort drin. (ein Interval von...