Form schließen wenn Mauszeiger d.Form verläßt ?

[Lefko]

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