Hm, warum einfach, wenn es auch kompliziert geht, nicht wahr?
Ich hab einfach ein Panel genommen, ein Label drauf und dann folgendes geschrieben:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.width := Panel1.width;
Label1.height := Panel1.Height;
Label1.Top := 0;
Label1.left := 0;
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Form2.close;
end;
Und das funktioniert wunderbar, man muss nur noch ein bisschen an der Optik feilen....
MfG Lefko
