Aumentar o form com um efeito cortina!!

Question

Dentro de um form tenho a propriedade Height em 379 quando clicar em um bot�o gostaria que a propriedade Height fosse incrementada 1 a 1 at� conter o valor 690 fa�o isso para que esse aumento do form ...

Oscar Candido · Answer

Amigo fiz assim, criei uma vari�vel global do tipo Boolean com o nome �Abre� iniciei ela como False, e no bot�o para controlar o efeito coloquei o seguinte:

  Timer1.Enabled := Not(Timer1.Enabled);
  Abre := Not Abre;

J� no Timeir o c�digo foi o seguinte

   If Abre then
      while not (form1.Height = 690) do
      begin
         Form1.Height := Form1.Height + 1;
         Timer1.Enabled := False;
      end
   else
      while not (form1.Height = 300) do
      begin
         Form1.Height := Form1.Height -1;
         Timer1.Enabled := False;
      end;

Espero ter ajudado, um abra�o

Beppe · Answer

Pra que timer? A n�o ser ser que voc� precise temporariza��o, ele � sup�rfluo.

const
  Minimo = 379;
  Maximo = 699;
var
  I, Incremento: Integer;
begin
  Incremento := Ord(Height = Maximo) - Ord(Height = Minimo);
  for I := 1 to Abs(Minimo + Maximo - Height * 2) do
    Height := Height - Incremento;
end;

Veja se isto cabe ao seu problema, se n�o podemos fazer com timer tamb�m.

F�rum Aumentar o form com um efeito cortina!! #269270