Popupmenu öffnet sich nicht an angegebener Stelle

[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