Toolbar2000 hat Problem mit 2 Monitoren

[jim_raynor]

Wenn du die Source von TB2000 ändern kannst, dann kannst du in TB2Item.pas die Methode TTBView.OpenChildPopup erweitern:

Delphi-Quellcode:

function TTBView.OpenChildPopup(const SelectFirstItem: Boolean): Boolean;
var
  Item: TTBCustomItem;
  Pt : TPoint;
begin
  StopTimer(tiClose);
  StopTimer(tiOpen);
  if FSelected <> FOpenViewer then begin
    CloseChildPopups;
    if Assigned(FSelected) then begin
      Item := FSelected.Item;

      Pt:=Window.ClientToScreen(Point(Selected.BoundsRect.Left,Selected.BoundsRect.Top));

      if Item.Enabled and (tbisSubmenu in Item.ItemStyle) then
        Item.CreatePopup(Self, FSelected, not FIsToolbar, SelectFirstItem,
          False, Pt, tbpaLeft);
    end;
  end;
  Result := Assigned(FOpenViewer);
end;

Damit klappt es bei mir.

Aber eine Umstellung auf SpTBXLib wäre wahrscheinlich die bessere Variante.