Posi��o do Componente

Question

Como fa�o para descobrir a posi��o (x,y) do componente em rela��o ao form.obs.: Lembrando que se ele estiver dentro de TPanel por exemplo, a propriedade Top estar� em rela��o ao Tpanel, e assim por di...

Massuda · Answer

Uma forma � converter a posi��o do componente para coordenadas da tela e converter essa nova posi��o para as coordenadas relativas ao form. Por exemplo (n�o testei):

function GetTopLeft(AForm: TForm; AControl: TControl): TPoint;
begin
  Result := AForm.ScreenToClient(AControl.ClientToScreen(Point(AControl.Left, AControl.Top)));
end;

Paulo_amorim · Answer

Ol�Pode-se tentar fazer (adapte o valor inicial de C, se necess�rio)[code:1:b4831f0fe3]function RetornaTop( controle: TControl): Integer;var   c: TControl;begin     c := controle;     Result := c.Top;     while not (c.Parent is TForm) do     begin          c := c.Parent;          Inc(Result, c.Top);     end;end;[/code:1:b4831f0fe3]Espero que ajudeAt�+...

Beppe · Answer

Paulo, vc n�o levou em conta a espessura das bordas....

Sistemald · Answer

Valeu novamente galera, agora acho que me viro.

Estou terminando um componente tipo Lookcombobox, por�m muito mais configurav�l, e a lista � preenchida por query embutida no componente.

em breve postarei aqui no forum.

Paulo_amorim · Answer

Ol�[quote:2db69ddcd1=�Beppe�]Paulo, vc n�o levou em conta a espessura das bordas.[/quote:2db69ddcd1]Eu pensei nisso. Ia incluir um teste no tamanho tanto de Border quanto Bevel, mas deixei quieto...At�+...

F�rum Posi��o do Componente #269239