TPopupMenu schließen bei Verlassen des Mauszeigers

[EWeiss]

Zitat:

Ich habe Deine Project1.exe ausprobiert, da schließt sich nix ohne klick.

Sorry kann dir jetzt nicht extra ein Video anfertigen um das zu beweisen das es bei mir sehr wohl alleine schließt.
Wenn die Zeit von 100ms überschritten wird und sich die Maus nicht über dem Menü befindet.

DropDownMenu
Mit kleiner Änderung geht das auch.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PT: TPoint;
begin

  Pt := Button1.ClientToScreen(Point(0, Button1.ClientHeight));
  Button1.DropDownMenu := PopupMenu1;
  Button1.DropDownMenu.Popup(Pt.X ,Pt.y);
end;

Sobald ich auf den Button klicke bleibt das Menü 100ms offen es sei denn die Maus befindet sich auf dem Menü
dann wird es geschlossen sobald die Maus das Menü verlässt.

gruss