[ToolBar2000] Wie TTBItem ein PopupMenu zuweisen?

[gothic_mike]

Moin zusammen,

bin ich blind, oder einfach nur zu blöd?
ich bin fast am verzweifeln, ich brauch bei einem TTBItem ein TBPopupMenu (Rechtsklick),
allerdings kann man den TTBItems keins zuweisen, hat irgendwer eine Idee, wie ich das trotzdem bewerkstelligen kann?

Danke schonmal...

[gothic_mike]

hat denn keiner 'ne idee, wie ich das hinbekommen könnte?

[ol1uw]

Hallo

Vielleicht hilft Dir das etwas weiter

Delphi-Quellcode:

var
ItemSelect : Integer;

procedure TForm1.ToolButtonSelect(Sender: TTBCustomItem;
  Viewer: TTBItemViewer; Selecting: Boolean);
begin
{
 den Items der Toolbar diese Procedure Onselect zuweisen
}
  if selecting then
    ItemSelect := Viewer.Index;
end;

procedure TForm1.FakeDDPopup(Sender: TObject);
var
  PT: TPoint;
begin
{
 der MainToolBar ist als Popup ein leeres PopupMenu (FakeDD) zugewiesen
}
  PT.X := MainToolBar.Left;
  PT.Y := MainToolBar.Top;
  PT := MainToolBar.ClientToScreen(PT);
  case ItemSelect of
    4: PrintPopup.Popup(FakeDD.PopupPoint.X, PT.Y);
    7: CutPopup.Popup(FakeDD.PopupPoint.X, PT.Y);
    8: CopyPopup.Popup(FakeDD.PopupPoint.X, PT.Y);
    9: PastePopup.Popup(FakeDD.PopupPoint.X, PT.Y);
  else
    ToolbarPopupMenu.Popup(FakeDD.PopupPoint.X, Pt.Y);
  end; // End Case
end;

Demo liegt auf deinem FTP

Gruß uwe

[gothic_mike]

Zitat von ol1uw:

Hallo
Vielleicht hilft Dir das etwas weiter
Gruß uwe

danke,
hab's zwar etwas modifizieren müssen, aber hat funktioniert!