hagens idee ist vom prinzip er genau das was ich brauche ^^
das problem, mal ein kleines bsp.:,
Delphi-Quellcode:
procedure TForm1.MausEnter(lbl:tlabel);
begin
lbl.Font.Color:=clRed;
end;
procedure TForm1.MausLeave(lbl:tlabel);
begin
lbl.Font.Color:=clBlack;
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
MausEnter(label1);
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
MausLeave(label1);
end;
procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
MausEnter(label2);
end;
ich müsste dann ja bei allen 30 labeln mouseenter mouseleave jeweils 1 procedure machen... wenn ich aber den name bekommen kann wenn ich mit der maus über dem label in kann ich mir das alles sparen... und hab im endeffekt nur 3 proceduren ^^ kann sein das man sowas ganz elegant lösen kann aber diese lösung habe ich nicht gefunden deswegen mein weg hier her
^^