Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Form Transparan dengan Delphi #166

Jam 1 adalah yaaaa jam 1

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.

yomen

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

form transparan dengan delphi
properties

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

Related Articles

One Comment

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button