Label-Position auswerten

[Hansa]

Hi,

es geht um Mauspositionen. Wie und wo kann man auswerten, ob sich der Mauszeiger über einem Label befindet ?

[Luckie]

Forensuche: http://www.delphipraxis.net/internal...ght=cmmouse%2A

[Christian Seehase]

Moin Hansa,

schau Dir mal ControlAtPos an.

[Hansa]

Das ControlAtPos hört sich gut an. Nur bringt so was :

Delphi-Quellcode:

procedure Tfrm.FormMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if ControlAtPos(Point (x,y),false) = TLabel (Self) then
showmessage ('asdsaf');
end;

keinerlei Reaktion. Das MouseMove wird allerdings schon angesprochen. Lasse ich die if Abfrage weg, so kommt die showmessage. Da liegt also der Hund begraben. Nur wo ?

[marabu]

Da schlummert nicht nur ein Hund.

Das Ereignis OnMouseMove() wird nur für die Form selbst ausgelöst, für auf der Form befindliche WinControls wird es an diese delegiert. Das bedeutet, das du das Ereignis dort abholen kannst - beim Label selbst. Außerdem willst du deine Form ganz sicher nicht nach TLabel casten - oder?

Grüße vom marabu

[Hansa]

Zitat von marabu:

Außerdem willst du deine Form ganz sicher nicht nach TLabel casten - oder?

Doch. Befindet sich die Maus über einem Label, dann soll das anders aussehen, als wie normal. Bei der Sache geht es allerdings nur um max. 10 Labels.

[Christian Seehase]

Moin Hansa,

Zitat von Hansa:

Befindet sich die Maus über einem Label, dann soll das anders aussehen, als wie normal.

das kannst Du einfacher haben:

interface

Delphi-Quellcode:

type
  TMyLabel = class(TLabel)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

implemenation

procedure TMyLabel.CMMouseEnter(var Message: TMessage);
begin
  self.Font.Color := clRed;
end;

procedure TMyLabel.CMMouseLeave(var Message: TMessage);
begin
  self.Font.Color := clBlack;
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  mlbl : TMyLabel;

begin
  mlbl         := TMyLabel.Create(self);
  mlbl.Parent  := self;
  mlbl.Caption := 'TESTLABEL';
  mlbl.Left    := 10;
  mlbl.Top     := 10;
end;

[Hansa]

Christian, das würde bedeuten, sämtliche Labels umzubauen. Ich muß die auch schon zur Designzeit rumschieben können. Was ist denn hierdran verkehrt :

Delphi-Quellcode:

procedure Tfrm.FormMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  i := i + 1;
  if ControlAtPos(Point (x,y),true,true) = TLabel (Sender) then     
    Memo1.Lines.Add (IntToStr (i)+' Label')
  else
    Memo1.Lines.Add (IntToStr (i)+' kein Label')
end;

Wandere ich auf der Form rum, dann wird der else Zweig durchlaufen. Bewege ich die Maus über einem Label, so passiert absolut nichts. Habe deshalb das i mit eingebaut. Es ist also kein Sehfehler. 8)

[marabu]

Hansa, du hast zwar inzwischen self durch Sender ersetzt, aber wahrscheinlich doch nicht verstanden was ich dir im Beitrag #5 beibiegen wollte. Ersetze noch "TLabel(Sender)" durch "Sender as TLabel", vielleicht wird dann deutlicher, das Sender = Self = frm ist.

Um Labels mit roter Schrift hervorzuheben kannst du einfach für alle TLabel Komponenten einen gemeinsamen Event Handler verwenden:

Delphi-Quellcode:

procedure TDemoForm.LabelMouseEnter(Sender: TObject);
begin
  with Sender as TLabel do
    Font.Color := clRed;
end;

procedure TDemoForm.LabelMouseLeave(Sender: TObject);
begin
  with Sender as TLabel do
    Font.Color := clBlack;
end;

Grüße vom marabu

[Jens Schumann]

[quote="Hansa"]Christian, das würde bedeuten, sämtliche Labels umzubauen. Ich muß die auch schon zur Designzeit rumschieben können. Was ist denn hierdran verkehrt :
Alles

Das OnMouseMove Event wird vom Formualar gefeuert. Wenn Du mit der Maus über das Label kommst wird das OnMouseMove Event vom
Label gefeuert.

Wenn Du den Type prüfen möchest solltest Du den is Operator verwenden
if ControlAtPos(Point (x,y),true,true) is TLabel then Der einfachste Weg ist der, den Christain vorgeschlagen hat. Du kannst Dir eine eigene Labelkomponente basteln und in der Komponentenpallette registrieren.