Posição do Form

Delphi

16/02/2009

Tenho um form (form1) com um edit.
Quero chamar um novo form (form2), mas ele deve estar posicionado como que emendado no edit do form1, ou seja, logo abaixo e à direita do edit.
Acho que tenho que pegar a posição na tela dess edit, certo? Como faria isso?

Obrigado.


Armindo

Armindo

Curtidas 0

Respostas

Carlosrm

Carlosrm

16/02/2009

Armindo,

não sei se é o mais fácil, mas tente assim:

No evento OnShow, por exemplo, do Form2, acrescente:
   form2.left := edit1.left;
   form2.top := edit1.top + edit1.height;

(Há maneiras melhores de escrever isso). Espero ter ajudado.
carlosrm


GOSTEI 0
Rodc

Rodc

16/02/2009

Tente assim:
Form2.Show();
Form2.Left := ClientToScreen(Point(Edit1.ClientRect.Left, Edit1.ClientRect.Bottom)).x + Edit1.Left;
Form2.Top  := ClientToScreen(Point(Edit1.ClientRect.Left, Edit1.ClientRect.Bottom)).y + Edit1.Top;



GOSTEI 0
POSTAR