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