Form Transparan dengan Delphi #166

andrypein.net : Dengan memanfaatkan slider / scrollbar kita bisa membuat form transparan dengan delphi.

Sesuai bumbu yang sudah di deskripsikan diatas mari kita mulai, dan nanti di akhir akan seperti ini gan.

Gas lanjut, untuk komponen scrollbar ada di palette standard, kemudian set nilai pada properties max scrollbar nya menjadi 255.

Untuk kode pertama-tama beri even OnCreate pada form nya, lalu isi script ini.

procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.AlphaBlend:=true;
 scrollbar1.Position:=255;
 label1.Caption:='';
end;

Lanjut pada scrollbar nya, beri event OnChange.

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 form1.AlphaBlendValue:=scrollbar1.Position;
 label1.Caption:=inttostr(scrollbar1.Position);
 if scrollbar1.Position = 50 then
  begin
   showmessage('dah ah takut ke blur ga keliatan');
   scrollbar1.Position:=scrollbar1.Max;
  end;
end;

Done silahken gan untuk unduh apps form transparan dengan delphi nya di link aing di blog aing.

Download

*AFK