!**************************************! Name: Menggulung Form! Description : menambahkan tinggi form dari nol! sampai pada batas tinggi tertentu! copyright : Maggot #10! www.master.ac.id!**************************************procedure TForm1.FormCreate(Sender: TObject);begin Form1.Height := 0;end; procedure TForm1.Timer1Timer(Sender: TObject);begin Form1.Height := Form1.Height + 10; IF Form1.Height >= 700 THEN Timer1.Enabled := False;end;
!**************************************
! Name: Menggulung Form
! Description : menambahkan tinggi form dari nol
! sampai pada batas tinggi tertentu
! copyright : Maggot #10
! www.master.ac.id
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
Form1.Height := Form1.Height + 10;
IF Form1.Height >= 700 THEN
Timer1.Enabled := False;