各位大大： 能否在Dbgrid裡寫More移動到哪一行哪一行的底色將著色呢？ ====================== ^_^ 相信自己，你是最棒的！

------
jacky

最簡單的方法.. DBGrid1.Options 有一個dgRowSelect設為True TRY TRY SEE..

請參考這篇 http://delphi.ktop.com.tw/loadfile.php?TOPICID=12630502&CC=282478 還有很多相關文章如 複行的變色方法 單column的變色方法 請善用搜尋 若是不行請參考下面這篇 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25748 「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/11/11 22:01:55

Object Inspector: dbgrid.options.dgrowselect:=true;    Events OnDrawColumnCell: if (gdSelected in State) then   Brush.Color:=TColor($BBFFFF);    

謝謝各位的解答！ 不過我要的效果是在Dbgrid的OnMouseMove事件裡面來實現這個功能， 也就是說當我的Mouse移動(不是點擊)某行，那底色將著色。 不知道我說的大家是否聽懂了我的意思？ ====================== ^_^ 相信自己，你是最棒的！ jacky ======================

------
jacky

type TTmpGrid=class(TCDBGrid); //這是為了使用原TDBGrid之protect property col及row    procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var id:TGridCoord;  
begin
  id:=dbgrid1.Mousecoord(x,y);  //取得目前mouse所在之col及row
  if (id.x > 0) and (id.y > 0) then begin
    TTmpGrid(cdbgrid1).Row:=id.y;  //設定Grid之row,col使其反白
    TTmpGrid(cdbgrid1).Col:=id.x;
  end;
end;

以上程式可簡單達到你要的目的, 但其實是很不建議如此做, 因為此時反白區移動而DataSet之Record未移動, 即反白不代表Current Record,可能造成誤會 當然要一起移動也是可以, 但會Trigger一些DataSource, DataSet之Event 如何取捨就在你自己了