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]


Sparch

Sparch

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:

procedure TForm1.DetailsClick(Sender: TObject);
begin
    if Form1.Height = 150 then
        Form1.Height := 400
    else
        Form1.Height := 150;
end;

Pronto!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar