"OnPopupClose"

[Bjoerk]

Gibt es ein Ereignis OnPopupClose o.ä., müßte da ein Flag setzen? :gruebel:

Delphi-Quellcode:

procedure TMainForm.PaintBoxPopupMenuPopup(Sender: TObject);
begin
  FMouseStatus := cmsNone;
end;

procedure TMainForm.PaintBoxPopupMenuClosePopup(Sender: TObject);
begin
  FMouseStatus := cmsWaitForMouseDown;
end;

[taaktaak]

Moin,Moin.
Bei delphi.about.com gibt es eine Erweiterung von TPopupList, die dieses Event bereitstellt.
Gruß Ralph

[Bjoerk]

Ich weiß, hatte ich gesehen, googeln kann ich auch? Hast du gesehen wie das dort gelöst ist? Das versteht doch kein Normalsterblicher?

[DeddyH]

So schwer verständlich finde ich den Code aber nicht. Da wird die originale PopupList freigegeben und durch die modfizierte ersetzt, welche bei Eintreffen der entsprechenden Windowsbotschaften die passende selbst definierte an das aktive Fenster sendet. Dies muss diese nur noch behandeln. Neue Events wären wohl einfacher, aber schwieriger zu implementieren gewesen.

[Furtbichler]

Zitat:

Zitat von Bjoerk (Beitrag 1252856)

Ich weiß, hatte ich gesehen, googeln kann ich auch?

:Loop.
Woher sollen wir das denn wissen? Wenn Du so eine Frage stellst ohne zu schreiben, das Du eine Lösung gefunden hast, aber diese nicht verstehst muss man einfach davon ausgehen, das du zu blöd zum googeln bist. Nun, bist Du vielleicht doch nicht, obwohl Du uns fragst, ob Du googeln kannst.
(Goto loop)

[Bjoerk]

Ok. Kann man das auch so machen, wäre mir lieber:

Delphi-Quellcode:

  TPopupList = class(Menus.TPopupList)

Edit: Furtbichler, was ist los mit Dir? Gehörst du jetzt auch zu den 100% Spaßbefreiten?

[DeddyH]

Versuch macht klug, aber ohne es selbst probiert zu haben: ich glaube nicht, dass das klappt. Ich habe jetzt nicht in die VCL-Sourcen geschaut, aber es las sich im Artikel so, als würde die originale Popuplist bereits im initialization-Abschnitt von menus.pas instanziert. Da nützt es Dir ja nichts mehr, wenn Du davon ableitest, die Instanz ist ja schon da.

[Bjoerk]

OK. Thanx! Ich wollte auf diesen Code auch gar nicht hinaus. Wenn jemand eine andere (einfachere) Variante hat, wäre dankbar.. Deshalb ja dieser Thread.