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;