Olá pessoal, Recentemente, no fórum do ClubeDelphi, perguntaram como saber a posição de um componente em relação a tela (Screen). Eu montei um pequeno algoritimo pra demonstrar como fazer isso. Veja como foi feito: procedure TForm1.Button1Click(Sender: TObject);var Topo: Integer; Esq: Integer;begin Form2 := TForm2.Create(Application); Topo := Form1.Top + TButton(Sender).Top – TButton(Sender).Height; Esq := Form1.Left + […]