API - como usar o ClientToScreen |
Top Previous Next |
|
// Este exemplo mostra como fazer um show num menu // bem encima do botao usado a funcao ClientToScreen (posicao relativa ao form/windows desktop
procedure TPrincipalForm.HelpButtonClick(Sender: TObject); var P: TPoint; begin inherited; P.X := HelpButton.Left + (HelpButton.Width div 2); P.Y := HelpButton.Top + (HelpButton.Height div 2); P := HelpButton.Parent.ClientToScreen(P); PopupMenu1.Popup(P.X, P.Y); end; |