Label-Position auswerten

[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