 |
Tips & Trik Delphi |
|
|
|
|
Database |
|
|
Form |
|
|
String |
|
|
VCL |
|
|
Communication |
|
|
|
|
|
|
|
Mengganti
Warna Baris atau Kolom Tertentu pada TDBGrid |
|
Potongan program dibawah ini
berfungsi untuk mengganti warna baris atau kolom tertentu,
kondisi yang dicari pada potongan program adalah jika umur
lebih besar dari 30 maka rubah warna font pada DBGrid
menjadi Biru.
|
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Table1.FieldByName('Umur').AsInteger > 30 then
DBGrid1.Canvas.Font.Color := clBlue;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; |
|
|
|
|
|
|
Menghentikan
Append Record pada DBGRID |
|
Potongan program di bawah ini akan menghentikan penambahan
record secara otomatis di dalam DBGrid. Karena secara default
jika terjadi penekanan tombol panah ke bawah, secara otomatis
DBgrid akan membuat sebuah record baru. Untuk menghentikan
penambahan record secara otomatis ini bisa menggunakan potongan
program di bawah ini.
procedure
TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;Shift:
TShiftState);
begin
if (Key = VK_DOWN) then
begin
TTable1.DisableControls ;
TTable1Next ;
if TTable1.EOF then
Key :=
0
else
TTable1.Prior ;
TTable1.EnableControls ;
end ;
end; |
|
|
