Membuat efect tampilan form yang unik

langsung aja formnya di double clik, kemudian cari event onshow  kemudian tuliskan code dibawah ini :

1	AnimateWindow(Self.Handle, 999, AW_BLEND or AW_ACTIVATE);

lengkapnya seperti ini :

1 2 3 4 5 6 7

procedure TForm1.FormShow(Sender: TObject);   begin   AnimateWindow(Self.Handle, 999, AW_BLEND or AW_ACTIVATE);   end;

nah contoh source code diatas adalah untuk menampilkan form dengan efek windows, masih ada beberapa efek lagi diantaranya :

• listing program untuk tampilan form yang bergerak dari arah samping kiri

  1	AnimateWindow(Self.Handle, 999, AW_HOR_POSITIVE or AW_ACTIVATE);

• listing program untuk tampilan form yang bergerak dari arah samping kanan

  1	AnimateWindow(Self.Handle, 999, AW_HOR_POSITIVE or AW_ACTIVATE);

• listing program untuk tampilan form yang bergerak dari atas

  1	AnimateWindow(Self.Handle, 999, AW_VER_POSITIVE or AW_ACTIVATE);

• listing program untuk tampilan form yang bergerak dari bawah

  1	AnimateWindow(Self.Handle, 999, AW_VER_NEGATIVE or AW_ACTIVATE);

demikian dulu postingan kali ini, semoga bermanfaat