TPopupMenu schließen bei Verlassen des Mauszeigers

[kurt]

Hallo
wie kann ich das Verlassen eines PopupMenu's erkennen ?
Sinn ist - das PopupMenu soll nach Verlassen mit der Maus geschlossen werden.

Delphi XE2 win32

Danke
Grüße Kurti

[stahli]

Das ist vermutlich schwierig.
Wir hatten mal das Thema, wie man das schließen eines Popups erkennen kann: http://www.delphipraxis.net/7535-tpo...-abfragen.html
Vielleicht findest Du über die Schiene einen Hinweis.
Evtl. auf MouseOver in der Application prüfen...


EDIT: Wobei man sich überlegen sollte, ob man am Standardverhalten wirklich etwas ändern will. Wenn Menüs zu schnell zuklappen kann das schon lästig werden.

[kurt]

Gurke da schon lange rum ,, und immer wieder wird's ein Thema.
Keine Windows Nachricht die abgefangen und ausgewertet werden kann ??
Schxxxxxxxx.......... :-)

Danke für die Nachricht

[Pfaffe]

Sorry, 4 Jahre später und ich suche ebenfalls nach "das PopupMenu soll nach Verlassen mit der Maus geschlossen werden.".

[EWeiss]

Ich verstehe die Frage nicht so recht.

Ein PopupMenu öffnet ich ja im Normalfall mit rechtsklick auf einem Control wenn ein PopupMenu dafür vorgesehen ist.
Und das bleibt solange offen bis das Control den Focus verliert.

Was du vielleicht machen könntest prüfen ob sich deine Maus noch im Client Bereich befindet.
Wenn nicht dann schicke eine Message WM_ACTIVATE an das HauptFenster.

Danach sollte das Menü eigentlich zuklappen da es den Focus verliert.
Ob du jedoch nach TrackPopupMenuEx noch einen zugriff auf die anderen Windows erhältst kann ich jetzt ohne
es selbst zu testen nicht genau sagen.

Ich glaube das geht so nicht.

EDIT:
Wirst du dir wohl ein eigenes Modales OnTop Window erstellen müssen.


gruss

[EWeiss]

Hat mich jetzt mal Interessiert.
Versuch das mal.

gruss

[Pfaffe]

"Normal": Normal wird nicht gewünscht:-)
Das Menü wird per DropDownMenu.Popup(Pt.X, Pt.Y) geöffnet. Sobald sich die Maus außerhalb des Menüs befindet, soll es sich, ohne Klick, wieder schließen.

Zitat:

Wirst du dir wohl ein eigenes Modales OnTop Window erstellen müssen.

So sehe ich es auch.
Danke für die Antworten.

[EWeiss]

Zitat:

Sobald sich die Maus außerhalb des Menüs befindet, soll es sich, ohne Klick, wieder schließen.

Wo ist das Problem tut es bei mir.
Da steht nirgendwo das es sich um ein DropDownMenu handelt die Frage war "TPopupMenu schließen bei Verlassen des Mauszeigers"

Und das ist was ich hier erstellt habe.
Und das schließt sich ohne klick von alleine.

gruss

[EWeiss]

Denke du meinst so etwas..
Ja das geht bei mir auch Automatisch zu ohne das ich klicken muss sobald die Maus die Form verlässt.
Aber sorry nein den Quelltext werde ich nicht veröffentlichen.

Da must du leider selber bauen.

gruss

[Pfaffe]

Ich habe Deine Project1.exe ausprobiert, da schließt sich nix ohne klick.
Mein neuer Versuch ohne TPopUpMenu: Panel mit Buttons, wobei das Panel automatisch ein- bzw. ausgeblendet wird, je nachdem wo sich der Mauscursor befindet.

[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:

Zitat von stahli (Beitrag 1362124)

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:

Zitat von stahli (Beitrag 1362130)

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:

Zitat von Pfaffe (Beitrag 1362134)

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:

Zitat von Pfaffe (Beitrag 1362136)

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