Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Mär 2014
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.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Mär 2014
Ok. Kann man das auch so machen, wäre mir lieber:
TPopupList = class(Menus.TPopupList)
Edit: Furtbichler, was ist los mit Dir? Gehörst du jetzt auch zu den 100% Spaßbefreiten?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Mär 2014
Ich weiß, hatte ich gesehen, googeln kann ich auch? Hast du gesehen wie das dort gelöst ist? Das versteht doch kein Normalsterblicher?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Mär 2014
Gibt es ein Ereignis OnPopupClose o.ä., müßte da ein Flag setzen? :gruebel:
procedure TMainForm.PaintBoxPopupMenuPopup(Sender: TObject);
begin
FMouseStatus := cmsNone;
end;
procedure TMainForm.PaintBoxPopupMenuClosePopup(Sender: TObject);
begin
FMouseStatus := cmsWaitForMouseDown;