Objeto Variavel (??)
Caros amigos.
Se alguem mandar uma dica, eu agradeço.
Tenho uma procedure que readapta os objetos visíveis ao form, assim que ele é redimensionado.
Como poderia criar uma variavel TObjeto na procedure, mandando um objeto como parametro e associando ela a um objeto existente ?
Exemplificando: Hoje eu tenho diversas procedures. Uma para cada tipo objeto diferente, embora sejam exatamente iguais a não ser por este detalhe. Uma para Label, outra para botões, outra para dbedits, etc.
Obrigado por qualquer dica.
Marconi
Se alguem mandar uma dica, eu agradeço.
Tenho uma procedure que readapta os objetos visíveis ao form, assim que ele é redimensionado.
Como poderia criar uma variavel TObjeto na procedure, mandando um objeto como parametro e associando ela a um objeto existente ?
Exemplificando: Hoje eu tenho diversas procedures. Uma para cada tipo objeto diferente, embora sejam exatamente iguais a não ser por este detalhe. Uma para Label, outra para botões, outra para dbedits, etc.
Obrigado por qualquer dica.
Marconi
Marconi
Curtidas 0
Respostas
Leanribas
14/11/2003
neste caso vc pode fazer assim:
procedure TForm1.teste(Control: TControl);
begin
Control.Width := 10;
Control.Height := 10;
end;
Leandro
falou...
procedure TForm1.teste(Control: TControl);
begin
Control.Width := 10;
Control.Height := 10;
end;
Leandro
falou...
GOSTEI 0
Marconi
14/11/2003
Legal... Funcionou !!!
Apenas não aceita o comando Control.font.size, mas isso é o de menos.
Valeu pela dica !!! obrigado!!!
Marconi
Apenas não aceita o comando Control.font.size, mas isso é o de menos.
Valeu pela dica !!! obrigado!!!
Marconi
GOSTEI 0
Marcelo Saviski
14/11/2003
Tenta usar TWinControl...
GOSTEI 0
Rafael Heise
14/11/2003
Eu acho que a melhor solução é você usar RTTI!!!
use a unit typInfo.
Olho no help sobre GetPropValue e SetPropValue.
Acho que vai ajudar!!
Abraços!
qualquer coisa, só avisar!
use a unit typInfo.
Olho no help sobre GetPropValue e SetPropValue.
Acho que vai ajudar!!
Abraços!
qualquer coisa, só avisar!
GOSTEI 0