請問各位先進: 我目前使用的是TxDBGRID我想要的功能是locate到焦點之後,將目前的row反白,請問各位先進有做過這個功能嗎. (類似新增資料以後將游標停在該row,然後把他反白區分出來) PS:TxDBGRID跟dbgrid很多功能都不同,真是......^^||| 謝謝

不知道 TxDBGrid 是怎樣的, 以下是 TDBGrid highlight 當前 record 的範例:

type
  TMyCustomDBGrid = Class(TCustomDBGrid);    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with TMyCustomDBGrid(Sender) do
    if DataLink.ActiveRecord = Row - 1 then
    Begin
     Canvas.Brush.Color := clYellow;
     Canvas.Font.Color := clBlack;
    End
    else
      Canvas.Brush.Color := clWhite;
  (Sender As TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

謝謝版主回應,還是不太可行ㄝ,我想要的只是當我locate到的時候就留下記號而以

for i:=0 to leqpid.Count-1 do
 begin
  IF cdsMaster.Locate('E_ID;FB',VarArrayOf([lpid[i],lfb[i]]),[])=true then
   {留下記號的方式(改變該行的顏色)}
 end;

一開始的時候設 DBGrid1.OnDrawColumnCell := nil; 有 Locate 到要的資料的話, 再設 DBGrid1.OnDrawColumnCell := DBGrid1DrawColumnCell; 不要的時候再設 DBGrid1.OnDrawColumnCell := nil; 再來就是 if DataLink.ActiveRecord = Row - 1 then 這行依您 Locate 的條件來做修改試試 發表人 - hagar 於 2004/11/04 12:06:18

謝謝版主回應:   Tdxdbgrid和dbgrid有一些程度的不同,我的程度還不夠,一時還無法消化^^.     

procedure TMainForm.dxDBGrid1CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
 if ASelected then
  acolor:=clred;  //我使用這個可以讓目前的這一列(我點到的這一列)變成我想要的顏色
end;

可否再請教版主,如何讓兩者配合ㄋ

for i:=0 to leqpid.Count-1 do
 begin
  IF cdsMaster.Locate('E_ID;FB',VarArrayOf([lpid[i],lfb[i]]),[])=true then
   {留下記號的方式(改變該行的顏色)}
 end;