Dakoenz Bergetar

Dalam program Anda mungkin Anda ingin mengetahui sudah berapa lama Windows dijalankan pada saat itu. Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.

Tulisan ini merupakan kelanjutan dari artikel sebelumnya yang berjudul AutoScroll pada palette Delphi. Di sini kami tambahkan 2 feature tersembunyi lainnya yang dimiliki oleh Delphi 5.
1. Menampilkan bentuk font
Secara default, jika kita memilih property Font.Name pada Object Inspector maka yang tampil adalah nama fontnya. Dengan sedikit mengubah registry kita dapat menampilkan nama font beserta bentuk font-nya.
Caranya, tambahkan String Value baru bernama FontNamePropertyDisplayFontNames pada
HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Extras. Isi value data pada FontNamePropertyDisplayFontNames dengan 1.

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:

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:

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

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;

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.