08/03/31 20:49:51
DBGrid1のOnDrawColumnCellで、DBGrid1の上にUpDownを描くやり方で、UpDownでフィールドの値を変えることにチャレンジしています。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
// DBGridをFColorDBGrid1とFColorDBGrid2の縞々にする。
if not (gdSelected in State) then
begin
if Table1.RecNo mod 2=0 then
begin
DBGrid1.Canvas.Brush.Color := FColorDBGrid1;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end else
begin
DBGrid1.Canvas.Brush.Color := FColorDBGrid2;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;