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.