News & Events
Posição dos componentes em relação a tela
- 31 de julho de 2007
- Posted by: Adriano Santos
- Category: componentes delphi delphi2007 dicas posição windows
Difficulty level not set for this Post
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
Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.
Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.
Siga também o autor @asrsantos
![foto](http://www.tdevrocks.com.br/wp-content/uploads/2016/11/adriano-santos.png)
Author: Adriano Santos
Adriano Santos é especialista em linguagens de desenvolvimento, Embarcadero MVP, possui +1000 artigos e vídeo-aulas publicadas em revistas e websites especializados, ex-editor chefe das revistas ClubeDelphi e WebMobile. Atualmente Diretor de Operações na startup GET IT! Technology e Consultor Senior na Embarcadero do Brasil.
Olá eaew kra beleza..
muito bom seu blog.
sou novo no mundo do delphi e estou com o quickreport 4.05 para Delphi 7 aqui só que não sei como instalar se vc souber e puder me ajudar ficarei grato valew…
adriano@oryonsystems.com.br
ou adrianu_henrique@hotmail.com
This comment has been removed by the author.
Mais fácil usar os métodos ScreenToClient e ClientToScreen da classe TControl, da qual a grande maioria dos controles visuais herdam.