可以在用mouse move到某一列時 dbgrid的記錄指標就移到該列嗎 謝謝

Hi twbestama,    在該 DBGrid 的 OnMouseMove 事件加入以下程式碼試試：

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    MOUSE_EVENT(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
    MOUSE_EVENT(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝回答 確實可以了 但還有另一個問題 其實我的事件是寫在DragOver裡面的 這樣的話我的dragover會變得沒有用了 請多多指教謝謝 procedure Tmainform.picgridDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin MOUSE_EVENT(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 ); MOUSE_EVENT(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 ); end;

應該是這樣才對 我最後要在dragdrop時移動到該筆記錄並取得記錄的值 procedure Tmainform.picgridDragDrop(Sender, Source: TObject; X,   Y: Integer); var id : TGridCoord; begin    id := picgrid.Mousecoord(x,y);  //取得目前mouse所在之col及row if((id.x>1) and (id.y>0) and (id.x<5))then begin mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);// click down mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);// click down application.ProcessMessages; showmessage(datamodule1.DataSource2.DataSet.FieldByName('name').asstring); //要取得值但取不到現在的值只能取得上一筆 end; end;

Hi twbestama,    picgrid 的  OnMouseMove 是否有其他事件？如

...
      TTmpGrid(Sender).Row := id.y;
      TTmpGrid(Sender).Col := id.x;
...

等，將之去除即可！ 發表人 -

------
Fishman

引言: Hi twbestama, picgrid 的 OnMouseMove 是否有其他事件？如

...
      TTmpGrid(Sender).Row := id.y;
      TTmpGrid(Sender).Col := id.x;
...

等，將之去除即可！ 發表人 - >< face="Verdana, Arial, Helvetica"> 已經可以嚕 感謝感謝