Hallo,
also bis jetzt konnte mir niemand helfen, und keiner wusste einen sinnvollen Rat wie ich folgendes Problem lösen kann :
Ich erstelle ein Toolbar2000 zur Laufzeit mit Einträgen. Die Toolbar ist dann von der Funktionsfähigkeit mit den Lesenzeichen-Toolbars vom IE & Firefox zu vergleichen.
Also klicke ich auf einen Eintrag, und wenn dieser Untereinträge hat, werden die unter der Toolbar aufgepoppt...usw.
Ich will aber unbedingt verschiedene PopupMenü's auf den Einträgen haben -> Daher : Alle Ordner und alle normalen Einträge haben ihr eigenes PopupMenü
wenn man die rechte Maustaste drückt.
Das Unterscheiden der Einträge ist mit
Delphi-Quellcode:
tempItem.OnSelect:= ItemSelect;
...
procedure TMainForm.ItemSelect(Sender: TTBCustomItem; Viewer: TTBItemViewer;
Selecting: Boolean);
begin
PopupFlag := Viewer.Item.ImageIndex;
PopupItemID := Viewer.Item.Tag;
end;
kein Problem!!!
Die Abfrage welches PopupMenü geöffnet werden soll, will ich in
TMainForm.ToolbarContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
machen.
Jetzt kommt aber das Problem!!!
Wenn ich auf die Toolbar mit der Maus gehe wie in diesem Bild (Bild 1):
Wird "TMainForm.ToolbarContextPopup" ausgelöst...
...sobald ich aber ein Eintrag angeklickt habe, wie in dem Bild (Bild 2):
http://www.mirrorkey.com/test/bild2.jpg
reagiert "TMainForm.ToolbarContextPopup" nicht mehr.
Das gleiche Problem tritt auch bei den aufgepoppten Untereinträgen auf (Bild 3):
http://www.mirrorkey.com/test/bild3.jpg
-> Also es wird kein "TMainForm.ToolbarContextPopup" aufgerufen!
Kann mir nun jemand weiterhelfen??? Wäre für Hilfe sehr dankbar, denn ich weiß nicht mehr weiter.
Gehen muss das aber, denn im IE & Firefox gehts ja auch mit dem Popup, auch wenn die keine Tb2000 verwenden.
Danke für eure Antworten!!!