Cara Mengubah Warna Pada DBGrid DELPHI7

Gampang banget guys caranya....
1. Cukup Klik pada DBGrid di Event --> OnDrawColum seperti gambar berikut :

2. Ketikan coding pada prosedur tersebut sehingga menjadi seperti berikut ini :

procedure TData_Jadwal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if DBGrid1.DataSource .DataSet .RecNo Mod 2=0 then DBGrid1 .Canvas .Brush .Color :=clGradientInactiveCaption; DBGrid1 .DefaultDrawColumnCell(rect,datacol,column,state); end;
3. Selesaiiii :) Dan jadilah seperti ini..

Catatan : Anda bisa mengubah warna sesuai keinginan. SELAMAT MENCOBA :)

Read More

Cara Yang Benar Menampilkan Jam di DELPHI7

Belajar dan mengajar adalah hal yang saya suka. kali ini saya akan berbagi ilmu tentang cara menampilkan jam pada DELPHI7. Yukk langsung saja...
1. Siapkan 1 label atau panel untuk menampilkan jam, dan 1 timer yang terletak pada toolbar system seperti gambar berikut :

2. Doble klik pada timer lalu ketikam script dibawah ini: (Contoh Saya Menggunakan sPanel4)

sPanel4.Caption:=FormatDateTime('hh:mm:ss',Now);

3. Run program maka jam sudah berhasil ditampilkan:)

4. Selamat mencoba :)

Read More