Fórum Mostrar parte oculta em tempo de projeto (expandir form) #198543
02/12/2003
0
:shock:
Como é possível fazer esse tipo de redimensionamento num form em tempo de execução? Eu tentei faze-lo redimensionando o form mas não deu certo.
Normal
[img:0269a28c9e]http://www.fag.edu.br/professores/carlosf/ex_janela01.jpg[/img:0269a28c9e]
Após clicar em ´detalhes´
[img:0269a28c9e]http://www.fag.edu.br/professores/carlosf/ex_janela02.jpg[/img:0269a28c9e]
Como é possível fazer esse tipo de redimensionamento num form em tempo de execução? Eu tentei faze-lo redimensionando o form mas não deu certo.
Normal
[img:0269a28c9e]http://www.fag.edu.br/professores/carlosf/ex_janela01.jpg[/img:0269a28c9e]
Após clicar em ´detalhes´
[img:0269a28c9e]http://www.fag.edu.br/professores/carlosf/ex_janela02.jpg[/img:0269a28c9e]
Sparch
Curtir tópico
+ 0
Responder
Posts
03/12/2003
Yankleber
Olá,
Para fazer o que você quer, é só redimensionar o form em tempo de execução. Para isso, coloque no evento Click do botão Details, o seguinte código:
Pronto!
Para fazer o que você quer, é só redimensionar o form em tempo de execução. Para isso, coloque no evento Click do botão Details, o seguinte código:
procedure TForm1.DetailsClick(Sender: TObject); begin if Form1.Height = 150 then Form1.Height := 400 else Form1.Height := 150; end;
Pronto!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)