Mostrar parte oculta em tempo de projeto (expandir form)

Delphi

02/12/2003

: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

Após clicar em ´detalhes´


Sparch

Sparch

Curtidas 0

Respostas

Yankleber

Yankleber

02/12/2003

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!


GOSTEI 0
POSTAR