Klik Kanan

Menambahkan Fasilitas Skin Pada Aplikasi dengan SXSkinComponents

Mungkin Anda semua sudah sering melihat aplikasi yang menggunakan konsep skin, misalnya Win Amp, WindowBlind, dll. Dengan konsep skin, maka user dapat dengan mudah mengganti tampilan programnya. Mungkin saja Anda terinspirasi untuk membuat program yang dilengkapi dengan fasilitas skin. Bagaimana caranya? Cara yang paling mudah adalah dengan menggunakan komponen. Salah satu yang cukup menarik dan bisa Anda coba adalah SXSkinComponents. SXSkinComponents dapat digunakan untuk Delphi 6, Delphi...

Mendisable Menu dan Tombol Close

Sebuah form biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize, minimize, close. Untuk Dengan tips di bawah ini Anda dapat mendisable tombol/menu close. procedure TForm1.FormCreate(Sender: TObject); var hMenuHandle : HMENU; begin hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; Langkah pertama adalah mencari handle dari window menu (atau Syste...

Membuat Efek Flat

Kadang kala kita mungkin ingin membuat tampilan program kita sedikit berbeda dengan biasanya. Dengan tips berikut ini Anda bisa membuat komponen checkbox, radiobutton dan button menjadi flat. procedure TForm1.Flatten(theControl: TWinControl); var dwStyle: Longint; begin dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_FLAT; SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle); end; procedure TForm1.FormCreate(Sender: TObject); begin Flatt...

Membuat Group Pada Laporan

Dengan menggunakan komponen TQRGroup Anda dapat mengelompokkan data berdasarkan kondisi tertentu. Misalnya Anda ingin mengelompokkan nama Company dari tabel Customter.db berdasarkan nama Company yang mempunyai huruf awal yang sama. Untuk itu Anda bisa mencoba contoh di bawah ini: Buat sebuah proyek baru dan tambahkan sebuah report. Tambahkan komponen TTable pada report. Ubah property DatabaseName menjadi DBDEMOS, TableName menjadi Customer dan IndexName menjadi ByCompany. Aktifkan tabel de...

Menambahkan Form Pada DLL

Dynamic Link Library atau DLL merupakan file yang berisi rutin (procedure dan function) yang dapat dipanggil dari file EXE maupun dari file DLL lain. Dengan meletakkan rutin-rutin pada file DLL (terpisah dari file EXE) maka terdapat beberapa keuntungan. Pertama, rutin-rutin yang bersifat umum dapat dipakai oleh beberapa aplikasi pada saat yang bersamaan dan hanya diperlukan satu copy di memory atau disk. Anda dapat mengatur supaya rutin-rutin yang terdapat pada DLL tersebut dimuat ke memory h...

Membuat Alias Baru

Salah satu hal yang sering terjadi saat memindah aplikasi yang Anda buat dari satu komputer ke komputer lain adalah masalah nama alias. Seperti yang telah Anda ketahui, nama alias digunakan untuk menunjukkan letak database yang digunakan. Jika Anda memindah aplikasi ke komputer lain tanpa membuat sebuah alias baru maka akan muncul pesan ".......unknown database........". Untuk mencegah hal tersebut Anda dapat menambahkan sedikit kode untuk membuat alias secara langsung (on the fly). Jadi saat...

Mengganti Icon Folder

Bagi Anda yang menyukai keindahan, default icon folder pada Windows yang berwarna kuning tentunya sangat "menyebalkan". Padahal dengan trik sederhana Anda dapat mengganti icon tersebut dengan icon lain yang Anda sukai. Caranya cukup mudah saja, Anda tinggal membuat file desktop.ini pada folder yang akan diganti iconnya. Pada file desktop.ini tersebut tambahkan baris berikut: [.ShellClassInfo] IconFile=file_icon.ico IconIndex=0 InfoTip=keterangan Selanjutnya ubah properties folder terseb...

Membuat Rounded Form

Secara default form yang Anda buat akan berbentuk segi empat. Dengan menambahkan beberapa baris kode berikut Anda dapat membuat form berbentuk elips atau lingkaran. procedure TForm1.FormCreate(Sender: TObject); var region : HRgn; begin region := CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end; Jika Anda membuka referensi Windows API tentang function CreateEllipticRgn maka akan didapat keterangan seperti di bawah ini: HRGN CreateEllipticRgn( int ...