Membuat Windows Form Transparan Delphi

Hehehe, oyii...!
Kali ini saya akan membuat form delphi menjadi transparent alias tembus pandang seperti gambar diatas. Kerenkan? tapi bukan hanya itu saja yang akan saya bagikan pada posting ini, melainkan juga bonus tambahan yaitu animasi form transparent baik pada saat baru dibuka atau saat form ditutup.

Baiklah, mari kita cara berikut ini :

1. Buka Delphi ( saya sendiri mengunakan Delphi 7 ).

2. Tambahkan component Image ( ) yang bisa ditemukan dimenu "Additional".
Kamu bisa mengisinya dengan gambar apa saja asal formatnya cocok. Contohnya gambar diatas mengunakan format JPEG.

3. Lalu tambahkan juga 2 component Timer ( ) yang bisa ditemukan dimenu "System".

4. Ubah AlphaBlend Form1 menjadi True.
Untuk membuat form tranparan saat dijalankan, ubah juga AlphaBlendValue dari 0 sampai 255. Nilai 0 untuk membuat form tidak terlihat dan 255 sebaliknya.

5. Silakan coba jalankan program yang tadi dibuat dengan menekan tombol F9.
Jika sudah berhasil & form transparan selanjutnya kita akan membuat animasi form transparan.

6. Selanjutnya, klik From1 dua kali dan letakan kode dibawah ini diantar begin dan end;

Form1.AlphaBlend:=True;
Form1.AlphaBlendValue:=0;
Timer1.Enabled:=True;

7. Berikutnya ubah Timer1 dan Timer2 Poperties, Enable menjadi False dan interval menjadi 1.
8. Kemudian klik Timer1 dua kali dan masukan kode berikut:

Form1.AlphaBlendValue:=Form1.AlphaBlendValue+1;
if Form1.AlphaBlendValue=255 then Timer1.Enabled:=False;

9. Klik dua kali juga pada Timer2 dan masukan kode berikut:

Form1.AlphaBlendValue:=Form1.AlphaBlendValue-1;
if Form1.AlphaBlendValue=0 then Application.Terminate;

10. Pada Form1, Object Inspector pilih "Events" lalu klik dua kali disamping kanan OnCloseQuery dan masukan code diberikut:

Timer2.Enabled:=True;
CanClose:=False;

11. Terakhir, Save project lalu build dan taraaaaa..!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Image1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend:=True;
Form1.AlphaBlendValue:=0;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.AlphaBlendValue:=Form1.AlphaBlendValue+1;
if Form1.AlphaBlendValue=255 then Timer1.Enabled:=False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.AlphaBlendValue:=Form1.AlphaBlendValue-1;
if Form1.AlphaBlendValue=0 then Application.Terminate;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Timer2.Enabled:=True;
CanClose:=False;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Timer2.Enabled:=True;
end;

end.

Kalo masih bingun silakan tulis komentar kamu dibwah posting ini.