如何從TDBGrid拖放？

Question

如果我將DragMode設置爲dmAutomatic，它會阻止我選擇行。 如果我使用OnCellClick來調用BeginDrag，它只會在鼠標點亮時觸發，這在我看來並沒有拖動。 如果我使用OnMouseDown，它只會觸發標題行。

我該怎麼做呢？

Answer 1

重載MouseDown將導致期望的結果。

type 
    TDBGrid=Class(DBGrids.TDBGrid) 
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; 
    End; 


    TForm2 = class(TForm) 
    ....... 
    end; 

var 
    Form2: TForm2; 

implementation 

{$R *.dfm} 

{ TDBGrid } 

procedure TDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    Begindrag(false); 
    inherited; 
end;