andere Farbe, wenn Maus auf Label

[3_of_8]

Zitat von turboPASCAL:

Nein, OnMouseEnter & OnMouseLeave gibt normaler weise nicht bei einem TLabel.
Hier in der DP aber schon. Such einfach mal : TLabel AND OnMouseEnter

Also bei mir (Delphi 7) gibts das sehr wohl.

[Hansa]

Ob das jetzt unter Versionen < D6 geht, weiß ich leider nicht :

Delphi-Quellcode:

procedure TfrmKey.lblMouseEnter(Sender: TObject);
begin
  with Sender as TLabel do begin
    Color := clSkyBlue;
    Font.Color := clNavy;
  end;
end;

procedure TfrmKey.lblMouseLeave(Sender: TObject);
begin
  with Sender as TLabel do begin
    Color := clInfoBk;
    Font.Color := clBlack;
  end;
end;

P.S.: oh je, in dem Code am Anfang wird Label1 usw. direkt angesprochen.

[Muetze1]

Ich wollte ähnliches mit einem Label unter Delphi 5 erreichen und habe mir eine kleine Ableitung geschrieben und die o.g. VCL Messages benutzt. Hier ein Beispiel dazu, du könntest es ja verallgemeinern und ein Label für D5 bauen, welches ein MouseEnter/MouseLeave bietet.

TURLLabel

[Cöster]

Zitat von Hansa:

P.S.: oh je, in dem Code am Anfang wird Label1 usw. direkt angesprochen.

Wie willst du es denn ohne OnMouseEnter und OnMouseLeave verhindern, dass die Labels direkt angesprochen werden.

Bei Zeiten werde ich mir sicherlich mal ne OnMouseEnter und OnMouseLeave-fähige Labelkomponente schreiben. Aber Bisher hab ich noch keinerlei Erfahrung mit der Komponentenprogrammierung.

Ich denke, dann lass ich's erstmal so, wie ich's jetzt hab. Wenn es irgendwann aber mal Performance-Probleme damit geben sollte, werd ich so schnell wie möglich mit der Komponentenprogrammierung anfangen.

Danke an alle.