PDA

Visualizza la versione completa : [DELPHI] Visualizzare menu Popup da un pulsante TButton


peste1
23-04-2007, 18:42
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?

:ciauz:

Come al solito grazie.
:stordita:

alka
25-04-2007, 16:25
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! :ciauz:

Loading