OnMouseMove 이벤트 동안 DbGrid 셀의 값을 확인하는 방법

Question

OnMouseMove 이벤트가 있는데, 그 동안 특정 셀의 값을 찾고 싶습니다 (반드시 마우스 아래에있는 값이 아님). 기본적으로 질문 : x 및 y 좌표를 선택하고, 포커스를 변경하지 않고 셀 데이터에 액세스하는 방법?

Answer 1

Tofig, 현재 행 안부를 얻기 위해 MouseCoord 절차를 사용할 수 있습니다,하지만 당신은 행 값으로 DataLink.ActiveRecord 속성을 설정하고 보호 속성에 액세스 할 수있는 새로운 클래스 하위를 작성해야합니다 [Col,Row]는 POS의 값을 보여 .

체크 당신은 MouseCoord을받을 필요가 없습니다 코드

type 
THackGrid = class(TCustomDBGrid); //Create a new class to access the protected properties 


procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, 
    Y: Integer); 
var 
    Cell    : TGridCoord; 
    Row,Col   : integer; 
    OrigActiveRecord : integer; 
begin 
    inherited; 
    Cell:=DBGrid1.MouseCoord(X,Y); 
    Col:= Cell.X; 
    Row:= Cell.Y; 

    if dgTitles in DBGrid1.Options then Dec(Row); //if the titles are shown then adjust Row index (-1); 
    if dgIndicator in DBGrid1.Options then Dec(Col); //if the indicator is shown then adjust the Column index (-1); 

    if THackGrid(DBGrid1).DataLink.Active and (Row>=0) and (Col>=0) then 
    begin 
     OrigActiveRecord:=THackGrid(DBGrid1).DataLink.ActiveRecord; //save the original index 
     try 
     THackGrid(DBGrid1).DataLink.ActiveRecord:= Row; 
     Label1.Caption:=DBGrid1.Columns[Col].Field.AsString; //show the current value in a tlabel 
     finally 
     THackGrid(DBGrid1).DataLink.ActiveRecord:= OrigActiveRecord; //restore the index 
     end; 
    end; 
end;