andere Farbe, wenn Maus auf Label

[Cöster]

Hi!

Ich möchte, dass die Font.Color der Labels rot ist, wenn sich die Maus darauf befindet.

So mach ich es bisher:

Delphi-Quellcode:

procedure TForm1.LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TLabel(Sender).Font.Color := clRed;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color := clBlack;
  Label2.Font.Color := clBlack;
end;

Aber der Nachteil dieser Lösung ist doch, dass immer, wenn die Maus bewegt wird, und nicht nur dann, wenn sie auf ein Label drauf bzw von einem Label runter bewegt wird, aufgerufen werden.

[3_of_8]

Ich glaub es gibt sowas wie MouseEnter/MouseLeave.

[Cöster]

Zitat:

Zitat von 3_of_8

Ich glaub es gibt sowas wie MouseEnter/MouseLeave.

Bei Labels leider nicht

[mkinzler]

In neueren Delphi-Versionen schon.

[Die Muhkuh]

Doch,

aber erst ab Delphi 7 (6?). Bei Delphi5 müsstest Du das von Hand nachprogrammieren.

[mkinzler]

Zitat:

Bei Delphi5 müsstest Du das von Hand nachprogrammieren.

Z.B. in dem du im .OnMouseMove der Form, diePositions des Mauszeigers mit der des Labels vergleichst.

[turboPASCAL]

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

[Cöster]

Zitat:

Zitat von mkinzler

Zitat:

Bei Delphi5 müsstest Du das von Hand nachprogrammieren.

Z.B. in dem du im .OnMouseMove der Form, diePositions des Mauszeigers mit der des Labels vergleichst.

Das hätte dann aber ja auch keinen Vorteil gegenüber meiner Variante. Dann müsste auch bei jeder Mausbewegung eine procedure aufgerufen werden.

[mkinzler]

Zitat:

Dann müsste auch bei jeder Mausbewegung eine procedure aufgerufen werden.

Ja, stimmt.
[Edit: Warum keine neuere Delphiversion? D5 Standard hat schließlich die gleichen Einschränkungen wie D7PE/D2005PE?]

[Die Muhkuh]

Matti,

OnMouseLeave und OnMouseEnter gibts bei einem Label in Delphi 7.

Wie gesagt, leite dir eine Komponente von T(Custom)Label ab und fange CM_MOUSELEAVE und CM_MOUSEENTER ab.

[3_of_8]

Zitat:

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. :roll:

[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:

Zitat von Hansa

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

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.