Position Popupmenu bei 2 Monitoren

[flippinho]

Hallo

Ich habe ein Problem mit der Positionierung eines Popupmenu bei 2 Monitoren:

Wenn ich den 2. Monitor so eingestellt habe, das er den links neben dem Haupmonitor angeordnet ist und die Anwendung sich auf dem 2. monitor befindet, wird das Popup-position an der Position x=0,y=0 von dem aufrufenden Control angezeigt.

Diese Verhalten tritt nur auf, wenn das Popup durch die Autopopup-Eigenschaft aufgerufen wird. Wird das Popup durch die Funktion "Popup" mit den aktuellen Mauskoordinaten aufgerufen, erscheint das Popup an den Mauskoordinaten.

Kann mir jemand ein Tip geben, wie in diesem Fall auch über die Autopopup-eigenschaft das popupmenu richtig positioniert bekomme?

Danke im Voraus und frohe Ostern,
flippinho

[blauweiss]

Hallo flippinho,

das hat mich auch schon geärgert. Es ist ein Bug in der Controls.pas von Delphi5:

Delphi-Quellcode:

procedure TControl.WMContextMenu(var Message: TWMContextMenu);
...
  if (PopupMenu <> nil) and PopupMenu.AutoPopup then
  begin
    SendCancelMode(nil);
    PopupMenu.PopupComponent := Self;
    [b]if Pt.X < 0 then[/b]
      Pt := ClientToScreen(Point(0,0));
    PopupMenu.Popup(Pt.X, Pt.Y);
    Message.Result := 1;
  end;

Im Vergleich dazu die Controls.pas von BDS2009:

Delphi-Quellcode:

procedure TControl.WMContextMenu(var Message: TWMContextMenu);
...
  if (PopupMenu <> nil) and PopupMenu.AutoPopup then
  begin
    SendCancelMode(Self);
    PopupMenu.PopupComponent := Self;
    [b]if InvalidPoint(Pt) then[/b]
      Pt := ClientToScreen(Point(0, 0));
    PopupMenu.Popup(Pt.X, Pt.Y);
    Message.Result := 1;
  end;

Wenn Du nicht die Controls.pas manipulieren willst, gibt es vielleicht die Möglichkeit, die WMContextMenu-Message in Deiner Form abzufangen und das Popupmenu selber aufzupoppen...!?

Frohe Ostern zurück
blauweiss

[Helmi]

Delphi7 hat auch schon den Code mit InvalidPoint(Pt)

[flippinho]

Hallo Ihr beiden,

danke für Eure Antworten, die Infos sind anscheinend genau das was ich brauche.
Ich werde sofort nach Ostern ausprobieren, wie ich es am besten zum funktionieren bringe.

Dank und Gruß,
flippinho