Schriftfarbe ändern

[daredd]

Tag Leute,
ich würde gerne es so habe, dass sich die Farbe von der Schrift eines Wortes, einer Zahl, etc. ändert sobald man die Maus drauf hält. Also praktisch so das wenn ich ein Wort in Schwarz habe es Weiß wird sobald die Maus dadrüber ist.
Wie mach ich das???
Danke im Vorraus :stupid:

[richie]

Naja, einfach so von irgendeinem Wort die Farbe ändern? :?:

Du könntest ein einzelnes Label nehmen und das Property ForeColor ändern (wir gehen einfach mal davon aus du benutzt ein Label ... ). :mrgreen:

[daredd]

Ja mein ich ja, ich nehm ein Label, aber wo änder ich dieses Property ForeColor???
Hab echt kein plan in Delphi, bin anfänger. :wall:

[semo]

willst du ein wort eines labels, eines Memos oder wovon farbig ändern?

Du solltest dir das OnMouseOver-Event der jeweiligen Komponente einmal ansehen. Dort liest du das aktuell mit der Maus berührte Wort aus (anhand der Koordinaten) und zeichnest im OnPaint-Event das Wort mit einer anderen Farbe neu.

[droppi]

eine einfachere lösung wäre sicherlich das onmouseenter und onmouseleave event vom label.
zb so.

Delphi-Quellcode:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clred;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblack;
end;

[daredd]

So habs jetzt hinbekommen, danke für die eure Hilfe.

[richie]

Kleine Nachfrage: Du hast jetzt das Property ForeColor genommen? :?: