Reposicionando componentes em run-time

Delphi

21/12/2004

Pessoal, todos os componentes tem as propriedades: Visible e Top, certo?
Então como eu faço para testar e redefinir essas propriedades passando componentes como parametro para uma função?

Tipo:

procedure TForm1.ReposComp(Comp: TObject ou TComponent; var iPosi);
begin
If Comp.Visible=True Then Begin
Comp.Top:=iPosi;
iPosi:=iPosi+Comp.Height+5;
End;
End;

Grato!!!


Valberaguiar

Valberaguiar

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

21/12/2004

Olá

Nesse caso creio que o melhor seja passar um TControl como parâmetro, já que os métodos Visible e Top são de TControl

Então, ficaria:

procedure TForm1.ReposComp(Comp: TControl; var iPosi);
begin
  if Comp.Visible then 
  begin
    Comp.Top := iPosi;
    iPosi:= iPosi + Comp.Height + 5;
  end;
end;


:idea: Utilize BBCode (botão Code) ao postar códigos, pois facilita a leitura

Espero que ajude
Até+


GOSTEI 0
Valberaguiar

Valberaguiar

21/12/2004

Amigo muito obrigado pelas dicas!!!
E um feliz natal para vc e todo a sua família


GOSTEI 0
POSTAR