鳄 鳄鱼先生 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-12 #3 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin TStringGrid(DBGrid1).FixedCols := 2; //设需要固定的列数 end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin TStringGrid(DBGrid1).FixedCols := 2; //设需要固定的列数 end;
Y YuZi Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-12 #4 如果你将 DBGrid1 的 Options 属性的 dgIndicator 设为False,则应设置 FixedCols 为1