Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 19 de fevereiro de 2016

DELPHI - Pegar posição de TWinControl na tela - GetWinControlPos Function

Reações: 
Function GetWinControlPos(AWinControl : TWinControl) : TPoint;
begin
  Result := AWinControl.ClientToScreen(Point(0,0));
  if Result.X < 0 then
    Result.X := Result.X *-1;
  if Result.Y < 0 then
    Result.Y := Result.Y *-1;

// Retorna posição X e Y do objeto passado por parametro "AWinControl "
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer