急!DBGRID中當找到一條記錄時, 如何使其在表格中的當前行高亮顯示(如更改其色彩或字體等)!

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if 找到資料 then //clBlue clYellow DBGrid1.Canvas.Font.Color:=clBlue; DBGrid3.DefaultDrawDataCell(Rect,Column.Field,State); end;

------
======================
昏睡~
不昏睡~
不由昏睡~

{  if 找到資料 then     //clBlue  clYellow    DBGrid1.Canvas.Font.Color:=clBlue;    DBGrid3.DefaultDrawDataCell(Rect,Column.Field,State); end;} [/quote] To:ko 用您的方法結果是所有行的字體都發生改變， 我是想將找到的記錄定位在當前DBGRID1的那一行改變字體！ 請問有無改進方法？謝謝！

看看這樣行不行？

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then begin
    if 找到資料 then     //clBlue  clYellow
     DBGrid1.Canvas.Font.Color:=clBlue;
  end;
  DBGrid3.DefaultDrawDataCell(Rect,Column.Field,State);
end;

-- Everything I say is a lie.

方法是沒錯的, 問題是如何用. 你必須依自己需要想清楚 DrawColumnCell傳入之參數包含了DataCol及Column, 用這兩參數就可以明確知道在Draw那一個cell    例如Button1 Click時進行locate Query1.locate(...) keyvalue:=query1.fields[xx].asstring; //用一global參數保存關鍵值 refreah;  //重新paint 在DrawColumnCell中

  if Query1.fields[xx].asstring=keyvalue then begin  //比較是否為關鍵值
    DBGrid1.Canvas.Font.Color:=clBlue;
    DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State);
  end;

發表人 - ccchen 於 2002/12/17 08:12:13

版主你好: 你所提供的方法，我剛好有程式已測試成功；不過若查詢無法吻合時，第一筆資料會高亮顯示，是否有方法改善？煩請解答，謝謝！

程式po上來看看才知道

procedure TForm1.ToolButton3Click(Sender: TObject); begin close; end; procedure TForm1.ToolButton2Click(Sender: TObject); var StyleNum: string; begin StyleNum := inputbox('查詢貨號','請輸入貨號','1234567890123'); Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM fgip005.dbf'); Query1.Open; Query1.Locate('STYLENUM',StyleNum,[]); keyvalue := Query1.fields[0].asstring; DBGrid1.Repaint; if Query1.FieldByName('STYLENUM').AsString = StyleNum then begin Query1.Locate('STYLENUM',StyleNum,[]); end else MessageDlg('找不到該筆資料!', mtError, [mbOk], 0); end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Query1.fields[0].asstring=keyvalue then //比較是否為關鍵值 begin DBGrid1.Canvas.Font.Color:=clRed; DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State); end; end;

DBGrid中每一行顏色可按照自己的意願控制 procedure Tinfo.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if query1.FieldByName(’all’).asstring>40’ then begin dbgrid1.Canvas.Font.Color:=clred; dbgrid1.Canvas.Brush.color:=clyellow; end else begin dbgrid1.Canvas.Font.Color:=clblue; dbgrid1.Canvas.Brush.color:=clyellow; end; dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state); end;