Fórum Reposicionando componentes em run-time #262988
21/12/2004
0
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!!!
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
Curtir tópico
+ 0
Responder
Posts
22/12/2004
Paulo_amorim
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:
:idea: Utilize BBCode (botão Code) ao postar códigos, pois facilita a leitura
Espero que ajude
Até+
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é+
Responder
Gostei + 0
22/12/2004
Valberaguiar
Amigo muito obrigado pelas dicas!!!
E um feliz natal para vc e todo a sua família
E um feliz natal para vc e todo a sua família
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)