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 + TButton(Sender).Left + TButton(Sender).Width;
 if Esq < Form2.Width  then
   Form2.Left := Form1.Left + TButton(Sender).Left + 5
 else
   Form2.Left := Form1.Left + TButton(Sender).Left
     - Form2.Width + TButton(Sender).Width;

 if Topo < Form2.Height then
   Form2.Top := Form1.Top + TButton(Sender).Top + 55
 else
   Form2.Top := Form1.Top + TButton(Sender).Top - {TButton(Sender).Height}
    Form2.Height + TButton(Sender).Height;

 Form2.ShowModal;
 Form2.Free;
end;

O exemplo está postado na seção Downloads.
Abs

Adriano Santos