Label unter Mausposition

[Sharky]

Zitat von Lilo:

... ich müsste dann ja bei allen 30 labeln mouseenter mouseleave jeweils 1 procedure machen...

Hai Lilo,

Faux hat es in einem Posting schon "angedeutet". Du kannst allen Labels die Selbe Methode für das MouseEnter bzw. MouseLeav zuweisen.
Zum Beispiel so:

Delphi-Quellcode:

procedure TForm1.AllLabelEnter(Sender: TObject);
begin
  (Sender As TLabel).Font.Color := clRed  // Sender ist immer das "Label" welches die Methode aufgerufen hat.
end;

procedure TForm1.AllLabelLeave(Sender: TObject);
begin
  (Sender As TLabel).Font.Color :=  clWindowText;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.OnMouseEnter := AllLabelEnter; // Alle Label haben das selbe MouseEnter
  Label2.OnMouseEnter := AllLabelEnter;
  Label3.OnMouseEnter := AllLabelEnter;

  Label1.OnMouseLeave := AllLabelLeave; // Alle Label haben das selbe MouseLeav
  Label2.OnMouseLeave := AllLabelLeave;
  Label3.OnMouseLeave := AllLabelLeave;
end;

Die Zuweisung kannst Du entweder im ObjectInspector oder zur Laufzeit (OnCreate) machen. In meinem Beispiel habe ich es mal im Code gemacht. Natürlich gibt es auch hierfür wieder verschiedene Wege. Bei 30 Labels würde ich das über eine FOR-DO Schleife machen. (Wenn es wirklich alle Labels der Form sein sollen.

[EDIT]Nachtrag:
Hier noch der Code um allen Labels auf der Form die Methoden zuweisen zu könne:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : integer;
begin
  for ndx := 0 to ComponentCount -1 do  // Durchlaufe alle Komponenten.
  begin
    if (Components[ndx] is TLabel) then // Wenn es ein Label ist dann
    begin
      (Components[ndx] as TLabel).OnMouseEnter := AllLabelEnter;
      (Components[ndx] as TLabel).OnMouseLeave := AllLabelLeave;
    end;
  end;
end;