Toolbar2000 und PopupMenu! Hat keiner eine Lösung?

[TriphunEM]

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!!!

[Sharky]

Hai TriphunEM,

es wäre vorteilhaft wenn Du die Bilder als Anhang an dein Posting hängst und nicht direkt verlinkst.
Wenn die Bilder mal nicht mehr auf dem Webspace vorhanden sind gibt dies nur "hässliche Lücken" in dem Posting.

Danke

[TriphunEM]

Ok. Hab zusätzlich als Anhang erstmal geändert. Ich hoffe es kann mir jetzt auch jemand helfen???

[TriphunEM]

Ich pushe zwar nur ungern, aber kann mir denn niemand weiterhelfen. ist wirklich sehr dringend!