PopupMenü mit linker Maustaste an richtiger Stelle öffnen?

[AlexII]

Auch du meine Güte...
Ich glaube ich muss mir was anderes suchen, die Maus- bzw. Cursorkoordinaten... geht bestimmt einfacher!

[AlexII]

Delphi-Quellcode:

procedure TForm1.MenuImageClick(Sender: TObject);
var
  X,Y: integer;
  pos: TPoint;
begin
  GetCursorPos(pos);
  X:=pos.X;
  Y:=pos.Y;
  MenuSettingsPopupMenu.Popup(X, Y);
end;

[himitsu]

Wobei ich mich nun Frage, wozu die die Variablen X und Y eigentlich brauchst.

Und fällt dir was auf?

Zitat:

TPoint <=> X und Y

k.A., wieso du das bei dem Anderen nicht mitbekommen hast.

PS: Mouse.CursorPos

[jaenicke]

Zitat von AlexII:

Auch du meine Güte...
Ich glaube ich muss mir was anderes suchen, die Maus- bzw. Cursorkoordinaten... geht bestimmt einfacher!

Geht 1:1 genauso was den Umgang mit TPoint angeht... und außerdem habe ich doch schon ganz exakt jeden Befehl geschrieben, den du benutzen musst...

Delphi-Quellcode:

var
  ScreenPos: TPoint;
begin
  ScreenPos := ClientToScreen(Point(MenuImage.Left + MenuImage.Width div 2, MenuImage.Top + MenuImage.Height div 2));
  MenuSettingsPopupMenu.Popup(ScreenPos.X, ScreenPos.Y);

[himitsu]

Und selbst ohne die Point-Funktion wäre es gegangen.
So fällt vermutlich auch nochmal besser auf, was da eigentlich gemacht wird.

Delphi-Quellcode:

var
  MyPos: TPoint;
begin
  MyPos.X := MenuImage.Left + MenuImage.Width div 2;
  MyPos.Y := MenuImage.Top + MenuImage.Height div 2;
  MyPos := ClientToScreen(MyPos);
  MenuSettingsPopupMenu.Popup(MyPos.X, MyPos.Y);