Delphi Pemrograman

Form Transparan dengan Delphi #166

Jam 1 adalah yaaaa jam 1

Andry Fadrie K April 25, 2012

1 1,033 Less than a minute

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.

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;