Nein. Das habe ich dir doch gerade gesagt. Da Label1MouseEnter eine Methode von TForm1 ist, bezeichent self das Formular1.
Mach mal einen Button auf dein Formular, Doppelklick darauf und dann schreib mal:
ShowMessage(self.Caption);
Aber da ich mir schon fast dachte, dass du es nicht hinbekommst, deswegen habe ich dir in der Zwischenzeitz mal schnell was gemacht:
Delphi-Quellcode:
type
TForm1 = class(TForm)
Label1: TLabel;
procedure MyLabelMouseEnter(Sender: TObject);
procedure MylableMouseLeave(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyLabelMouseEnter(Sender: TObject);
begin
with (Sender as TLabel) do
begin
Font.Color := clRed;
end;
end;
procedure TForm1.MylableMouseLeave(Sender: TObject);
begin
with (Sender as TLabel) do
begin
FOnt.Color := clBlack;
end;
end;
Du mußt deinen Labels jetzt nur noch die Methoden MyLabelMouseEnter und MyLabelMouseLeave im
OI zuweisen.