[DELPHI] Visualizzare menu Popup da un pulsante TButton

[peste1]

Ciao a tutti,
avete qualche simpatico codicillo già pronto per eseguire il popup di un menu popup cliccando su un TButton? Okay, bisogna usare il metodo Popup però per dare i valori X e Y corretti in modo che non si sminchi con le risoluzioni diverse?



Come al solito grazie.

[alka]

Previa associazione del menu di popup al pulsante:

procedure TDemoForm.PopupButtonClick(Sender: TObject);
var
  P: TPoint;
begin
  P := Point(PopupButtonClick.Left, PopupButtonClick.Top + PopupButtonClick.Height);
  P := PopupButtonClick.Parent.ClientToScreen(P);
  PopupButtonClick.Popup(P.X, P.Y);
end;

Ciao!