Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell : Type
TCreatedYugi = class(TCustomDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Begin
with TCreatedYugi(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
Else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
memberikan warna cell active DBGrid menjadi merah...
sorry kalo post kurang menarik.....