Problem mit TPopupMenu.OnClose

[100nF]

hallo zusammen,

ich habe eine form7 (hauptform = form1) die in jede titelleiste passt und sich mit diesem code immer im vordergrund hält:

Delphi-Quellcode:

procedure TForm7.Timer1Timer(Sender: TObject);
begin
with Self do
  SetWindowPos(Handle, 
               HWND_TOPMOST, 
               Left, 
               Top,   
               Width,
               Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

(ist von swissdelphicenter.ch)
funktioniert wunderbar. bei einem klick auf einen button öffnet sich ein popupmenu, das ev. bis über 100 items haben kann, und dadurch auch die form7 teilweise verdeckt. nun gibts grosse grafikprobleme, da die form7 ja im vordergrund sein will...
ich habe das so gelöst, dass beim öffnen vom popupmenu der timer1 abgeschaltet wird. dann muss er aber beim schliessen vom popupmenu wieder eingeschaltet werden.
gesagt, getan! mit diesem code fange ich das ereignis "popupmenu.OnClose" ab, und der timer wird eingeschaltet.
funktioniert wunderbar.

nur funktionieren jetzt alle popupmenus vom ganzen programm nicht mehr, das heisst, die popupmenus werden geöffnet, aber bei einem klick auf ein item wird die procedute nicht ausgelöst. entferne ich diesen code wieder, funktioniert alles wieder...

weiss jemand, was das problem ist? wie kann ich es lösen?

vielen dank schon im voraus.

[alcaeus]

Hallo urbanbruhin,

mir scheint die Methode mit dem Timer sehr unguenstig gewaehlt. Versuch mal das Fenster modal zu oeffnen, oder wenn es gaaanz vorne (vor allen anderen Fenstern, auch jener anderer Anwendungen) sein soll, dann setzt du FormStyle auf fsStayOnTop.
Ausserdem gibt es beim PopupMenu eine Regel: sobald auf ein Item geklickt wurde, schliesst sich das PopupMenu. Evtl. musst du bei allen Items im OnClick den Timer wieder anschalten ;)

Greetz
alcaeus

[100nF]

hallo alcaeus,

Zitat:

mir scheint die Methode mit dem Timer sehr unguenstig gewaehlt. Versuch mal das Fenster modal zu oeffnen, oder wenn es gaaanz vorne (vor allen anderen Fenstern, auch jener anderer Anwendungen) sein soll, dann setzt du FormStyle auf fsStayOnTop.

ich weiss, es ist nicht sehr elegant, aber ich habe das mit dem fsStayOnTop schon ganz am anfang probiert, funktioniert aber nicht. wenn ich z.B. den IE öffne, ist dieser im vordergrund, und meins sieht man nicht mehr...darum diese timer-lösung.

Zitat:

Ausserdem gibt es beim PopupMenu eine Regel: sobald auf ein Item geklickt wurde, schliesst sich das PopupMenu. Evtl. musst du bei allen Items im OnClick den Timer wieder anschalten

das problem dabei ist, dass man nicht immer auf ein item klickt. wenn man auserhalb des programms klickt(was man meistens tut, wenn man das popupmenu schliessen will), und der timer ist ausgeschaltet, verschwindet die form7 wieder im hintergrund.

[100nF]

mir ist gerade in den sinn gekommen, dass es noch besser wäre, wenn man abfragen könnte ob das popupmenu geöffnet ist oder nicht... hab nur noch nicht herausgefunden, wie das geht(falls es überhautp geht)...

weiss das niemand von euch?

ich werd noch ein bisschen suchen...

[100nF]

hallo zusammen, problem gelöst!!

bei diesem code ist ein fehler drin!

Es muss CallWindowProc sein und nicht DefWindowProc.

Delphi-Quellcode:

procedure TForm1.PopupListWndProc(var Message: TMessage);  
begin  
  with Message do  
  begin  
    case Msg of  
      WM_ENTERMENULOOP:; // PopupMenu wird geöffnet  
      WM_EXITMENULOOP:;  // PopupMenu wird geschlossen  
    end;  
    Result := CallWindowProc(OldPopupListWndProc, PopupList.Window, Msg, WParam, LParam); // <<<<hier!
  end;  
end;

habe ich hier entdeckt!

vielleicht sollte man das bei diesem code noch ändern, falls möglich...

greez
urbanbruhin