引言: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if adoTable1.FieldByName('rtt_group').AsString = 'A' then DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State); end; 本人編寫了上述的程式碼,但只有在OnDrawColumnCell時生效,但我想編寫一procedure 或 function 每當執行該procedure 時才把上述的代碼生效,請問應該怎樣編寫代碼?

Procedure TForm1.someProcedure;
Begin
  DBGrid1.OnDrawColumnCell :=DBGrid1DrawColumnCell ; // 掛上事件後才會執行該事件的程序
  .......
  // 做你想做的事
  ........
  DBGrid1.OnDrawColumnCell :=nil; ; // 切斷事件
End;

引言:

引言: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if adoTable1.FieldByName('rtt_group').AsString = 'A' then DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State); end; 本人編寫了上述的程式碼,但只有在OnDrawColumnCell時生效,但我想編寫一procedure 或 function 每當執行該procedure 時才把上述的代碼生效,請問應該怎樣編寫代碼?

chrislao 你好 １．程式照目前方式撰寫 ２．然後在Form.OnCreate事件中加入DBGrid1.OnDrawColumnCell := nil ;//把事件關聯切斷 ３．在你說的Procedure中如此寫法

Procedure TForm1.someProcedure;
Begin
  DBGrid1.OnDrawColumnCell :=DBGrid1DrawColumnCell ; // 掛上事件後才會執行該事件的程序
  .......
  // 做你想做的事
  ........
  DBGrid1.OnDrawColumnCell :=nil; ; // 切斷事件
End;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if adoTable1.FieldByName('rtt_group').AsString = 'A'then
  begin
    DBGrid1.Canvas.Brush.Color:=clRed;
    DBGrid1.Canvas.Rectangle(Rect);
  end
  else 
  if adoTable1.FieldByName('rtt_group').AsString = 'B'then
  begin
    DBGrid1.Canvas.Brush.Color:=clBlue;
    DBGrid1.Canvas.Rectangle(Rect);
  end;      DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State);
end;

引言: 整行變色，字形顏色不能一樣否則就看不到了

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if adoTable1.FieldByName('rtt_group').AsString = 'A'then
  begin
    DBGrid1.Canvas.Brush.Color:=clRed;
    DBGrid1.Canvas.Rectangle(Rect);
  end
  else 
  if adoTable1.FieldByName('rtt_group').AsString = 'B'then
  begin
    DBGrid1.Canvas.Brush.Color:=clBlue;
    DBGrid1.Canvas.Rectangle(Rect);
  end;      DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State);
end;

引言: 我只是想用紅色標出用combobox所選擇的組別,不是用不同的顏色標出不同的組別.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If adoTable1.FieldByName('rtt_group').AsString = 'A' Then Begin
    DBGrid1.Canvas.Font.Color:=clRed; // 字紅色
    DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State);
  End;
End;

引言: 我只是想用紅色標出用combobox所選擇的組別,不是用不同的顏色標出不同的組別.

chrislao你好： 你要的是不是这种效果： procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if adoTable1.FieldByName('rtt_group').AsString=combobox1.Text then DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.Fields[DataCol], State); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin dbgrid1.Columns.RestoreDefaults; end; 则会根据combobox1选择的组别，对应字体变红，试试看 ——行径窄处，留一步与人行—— ===== 为什么，经过多年以后，得失的过程如此冷漠 为什么，经过多年以后，风干的伤口心痛依旧 發表人 -