Label-Position auswerten

[bigg]

moin,

ich weiß zwar nicht genau, worum es geht, poste aber trotzdem mal.

[Hansa]

Die Vorschläge haben bisher nicht viel genützt :

Delphi-Quellcode:

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

Egal, was ich mache : nur der else-Zweig wird durchlaufen. Ergo : im ControlAtPos ist ein Fehler.

[turboPASCAL]

Nimm den Vorschlag von marabu. Jedem Label weist du dann im OI die selbe Procedure zu und jedes Label wird dir sagen wo es ist.

[Helmi]

Hallo,

das Event "Tfrm.FormMouseMove" wird ja nur ausgelöst, wenn du dich mit der Maus direkt auf der Form bewegst.
Bewegst du aber die Maus auf ein Label, bist du nicht mehr direkt auf der Form, sondern eben auf diesem Label und nun wird dort (auf diesem Label) das Event "OnMouseMove" ausgelöst.

Ich hab einfach mal folgendes gemacht:

Delphi-Quellcode:

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

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Memo1.Lines.Add('LABEL');
end;

Bin ich mit der Maus auf der Form bekomm ich "kein Label". Bin ich aber mit der Maus auf dem Label2, dann erhalt ich "LABEL".

[Hansa]

Helmi, das war schon mal richtig so. Allerdings wird das Event 2mal ausgelöst. Das läßt sich aber leicht so beseitigen (inspired by Ch. Seehase) :

Delphi-Quellcode:

procedure Tfrm.lblMouseEnter(Sender: TObject);
begin
  inherited;
//  if ControlAtPos(Point (x,y),true,true) is TLabel then
    showmessage ('Label');
end;

Mal sehen, ob ich das MouseLeave auch noch brauche. Allerdings wäre es noch gut, wenn einer wüßte, wie ich dieses Verhalten ALLEN Labels beibringe.

[Khabarakh]

Wenn du es nicht per Hand machen willst, musst du eben am Anfang des Programms durch Components der Form iterieren und jedem Label die Prozedur zuweisen.

[Hansa]

Wieso kriege ich hier :

Delphi-Quellcode:

        TLabel (FindComponent (lblKomp.Name)).Canvas.Brush.Color := clRed;
        TLabel (FindComponent (lblKomp.Name)).Font.Color := clBlue;

zwar den Font geändert, die Hintergrundfarbe aber nicht ?

[phlux]

neue frage neuer thread?

schon pen.color getestet?

[Hansa]

Zitat von phlux:

neue frage neuer thread?

jaja, aber der thread ist noch lange nicht beendet. Wie lautet denn die Antwort auf letzte aufgetauchte Frage ? Wem nützt ein Auseinanderreißen der Frage ?

[alcaeus]

Zitat von Hansa:

Zitat von phlux:

neue frage neuer thread?

jaja, aber der thread ist noch lange nicht beendet. Wie lautet denn die Antwort auf letzte aufgetauchte Frage ? Wem nützt ein Auseinanderreißen der Frage ?

Doch. Du bist lange genug dabei, und solltest die Regeln kennen. Neue Frage => Neuer Thread. So einfach ist das. Wem das nuetzt? Der Suchfunktion. Also, erstelle bitte ein neues Thema fuer die zweite Frage.

Hier mach ich erstmal zu.

Greetz
alcaeus

*** LOCKED ***