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

[stahli]

Sowas: http://www.delphipraxis.net/1213706-post18.html ?

Ich hänge mal die Quelle an.
Das stammt aus einem alten FMX-Databinding-Framework. Direkt verwenden kannst Du es so nicht, aber vielleicht taugt es als Anregung.

[EWeiss]

Zitat von stahli:

Sowas: http://www.delphipraxis.net/1213706-post18.html ?

Ich hänge mal die Quelle an.
Das stammt aus einem alten FMX-Databinding-Framework. Direkt verwenden kannst Du es so nicht, aber vielleicht taugt es als Anregung.

Wo ist das Problem funktioniert mein Beispiel bei dir auch nicht ? LOL.

gruss

[stahli]

Habe ich nicht versucht und ich dachte, Du wolltest den Quelltext nicht rausgeben.
Egal, Kurt kann sich ja das passende raussuchen...

[EWeiss]

Zitat von stahli:

Habe ich nicht versucht und ich dachte, Du wolltest den Quelltext nicht rausgeben.
Egal, Kurt kann sich ja das passende raussuchen...

Ich meinte den von meiner SkinEngine.
Nicht diesen hier vom Sample.

Aber richtig, kann er (Pfaffe) Kurt interessiert das schon seit Jahren nicht mehr.

gruss

[Pfaffe]

Das letzte Beispiel funktioniert, genauso so wie ich es benötige.
Ich vermute, dass ein Timer im Spiel ist und immer wenn die Maus auf einem Menüeintrag ist, wird der Timer neu gestartet.

[EWeiss]

Zitat von Pfaffe:

Das letzte Beispiel funktioniert, genauso so wie ich es benötige.
Ich vermute, dass ein Timer im Spiel ist und immer wenn die Maus auf einem Menüeintrag ist, wird der Timer neu gestartet.

Na dann, das erste ging vorher auch.
Hier ist die Quelle, aber nicht das Projekt damit du auch noch was zu tun hast.
Habe es unten angehängt.


bin dann raus aus dem Thread

gruss

[Pfaffe]

SendMessage(PopupMenu1.WindowHandle, WM_IME_KEYDOWN, VK_ESCAPE, 0);
Danke, hast mir sehr geholfen.

[EWeiss]

Zitat von Pfaffe:

SendMessage(PopupMenu1.WindowHandle, WM_IME_KEYDOWN, VK_ESCAPE, 0);
Danke, hast mir sehr geholfen.

Kein Problem
Das ist der Vorteil wenn man sich mit der WinApi32 auskennt.

Habe den Source doch noch angehängt.
Und die anderen gelöscht.

gruss