[ToolBar2000] Wie TTBItem ein PopupMenu zuweisen?

[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