Pages

Subscribe:

About

Blog Ini membahas Tentang Delphi dari Tutorial, Source code, hingga Programming *Exe. Bersumber dari http://olvandra.blogspot.com

Sabtu, 28 Desember 2013

FORM TRANSPARAN dengan ALPHASKIN [Alphacontrol]

 

Pokok bahasan masalah kali ini. Mebuat Form Transparan saat Form Didrag atau di move, kronologinya Pada saat mouse di drag pada titlebar dan digeser maka FORM tersebut akan Transparan (berbayang) pada Alphacontrol. Begini tutorialnya sangat simple

Open Delphi

pilih tab AlphaTool >> Pilih sSkinmanager






Letakkan pada Form Delphi anda



Klik sSkinmanager tersebut kemudian lihat pada Properties ubah seperti gambar berikut:


 

Nilai Active : True atau False  (Aktif atau Tidak)
Nilai BlendValue : Nilai dimana antara 1- 255 (semakin kecil nilai, Form semakin transparan)
Time : Waktu Refresh sesi transparan

Kemudian pilih SkinName

SkinName adalah Skin yang akan Kita pakai nantinya, saat ini saya menggunakan Skin "Acyl"

Perhatikan gambar dibawah ini :


Step selanjutnya silahkan RUN Delphi Anda Tekan F9 dan Drag Moving title Formnya,



Nah.. Sekian Dulu Tutorialnya..

untuk Contohnya dibawah ini saya cantumkan Tutorial Format Word dan contoh program
silahkan download :





Tutorial Blind Form Format WORD

Download Size [311kb]



Contoh Program Blind Form
Download Size [432kb]

Note:  saya Menggunakan Alphacontrol 8.48, jika belum punya silahkan download link dibawah ini :

Download Size [96MB]


11 komentar:

Noow mengatakan...

Thanks Sob, lanjutkan berkaryanya

Andra mengatakan...

Tq gan..

gunawan mengatakan...

sob gmn ya kalu kita buat program supaya tidak bisa di decom?

Andra mengatakan...

Decompile maksud nya.. ? kurang tw soal itu gan, menurut saya sebisa apapun Program kita di dicompile orang tetep gx akan 100% source kebuka. kecuali agan memberikan exe beserta *dpr dan unit source" nya.

azka mengatakan...

sob gmn ya kalo kita klik di bagian ini masuk ke system tray...kan biasanya kalo klik di bagian ini cuman ke minimaze aja,,,,
http://prntscr.com/2x4sk5

Andra mengatakan...

http://www.torry.net/pages.php?id=245

Andra mengatakan...

atau
apabila sudah ada program tray icon
tambahkan

di private
================================
private
{ Private declarations }
procedure Minimize( var Msg : TWMSysCommand ); message WM_SYSCOMMAND;
================================

{$R *.dfm}
procedure TForm1.Minimize(var Msg: TWMSysCommand);
begin
if( Msg.CmdType = SC_MINIMIZE ) or
( Msg.CmdType = SC_CLOSE ) then
Hide
else
inherited;
end;

Andra mengatakan...

Untuk @AzkaRossi ini source lengkapnya
maaf lama menunggu

Disini

Azka mengatakan...

terima kasih sob. tutornya sangat membantu.
terus updat
hehehehe
ane pantengin terus disini

azka mengatakan...

sob ane nanya lagi nih,,,, kalo ke tray biar ada kaya gininya kaya gmn ya???
http://prntscr.com/2xqpjn
terima kasih sebelumnya sob

Andra mengatakan...

dengan ballon tooltips ya mas...?

Posting Komentar

Untuk Mengurangi SPAM .Gunakan Kata-kata yang sewajarnya, sopan dalam tutur kata berbahasa. Sekian Terima kasih.

Visitor