mouseover auch in delphi bei labels?

[Sharky]

Hai aerotesch,

hier mal noch eine allgemeinere Schreibweise. Damit bist Du unabhängig vom Namen des Labels und kann dadruch z.B. die Methoden für mehrere Labels verwenden.

Delphi-Quellcode:

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

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