Popupmenu öffnet sich nicht an angegebener Stelle

[Andreas L.]

Hi,
ich bin gerade dabei mir einen Objekt-Inspector zu bauen. Jetzt wollte ich das ein PopUpmenu sind ähnlich wie eine Combobox öffnet. hierzu habe ich einen Button und 1 Label. Das Menü soll also am linken unteren Eck vom Label öffnen. Ich habe folgenden Code benutzt:

Delphi-Quellcode:

var
 cursors: TPoint;
begin
 cursors:=Clienttoscreen(Point(button2.left - 84, button2.top + button2.height));
 PopUpMenu2.popup(cursors.x,cursors.y);

Leider geht es nicht da auf wo ich möchte. Siehe Screenshot.

Was läuft da falsch?

[KrasserChecker]

Eigentlich willst Du das Menü ja relativ zur Position des Buttons bestimmen. Probiere doch mal folgendes:

Delphi-Quellcode:

var
cursors: TPoint;
begin
cursors:=Button2.Clienttoscreen(Point(-84, button2.height));
PopUpMenu2.popup(cursors.x,cursors.y);

[marabu]

Hallo Andreas,

Zitat von onlinehome:

hierzu habe ich einen Button und 1 Label. Das Menü soll also am linken unteren Eck vom Label öffnen.

dann besser so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  p: TPoint;
begin
  with TheLabel do
  begin
    p.X := Left;
    p.Y := Top + Height;
    p := Parent.ClientToScreen(p);
    ContextMenu.Popup(p.X, p.Y);
  end;
end;

Grüße vom marabu

[Andreas L.]

Zitat von marabu:

Hallo Andreas,

Zitat von onlinehome:

hierzu habe ich einen Button und 1 Label. Das Menü soll also am linken unteren Eck vom Label öffnen.

dann besser so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  p: TPoint;
begin
  with TheLabel do
  begin
    p.X := Left;
    p.Y := Top + Height;
    p := Parent.ClientToScreen(p);
    ContextMenu.Popup(p.X, p.Y);
  end;
end;

Grüße vom marabu

Juhu, funktioniert. Danke