各位先進好！ 請問在DBGrid中如何判斷滑鼠的點擊 是在Record上，還是在DBGrid中空白處？

//判断在dbgrid记录中位置 procedure TForm1.DBGrid1CellClick(Column: TColumn); var col,row:integer; begin col:=column.Index ; row:=table1.RecNo ; edit1.Text :=inttostr(col) ; edit2.Text :=inttostr(row) ; end; //对于是否在在Record上，可以用    procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin .... end;    procedure TForm1.DBGrid1ColExit(Sender: TObject); begin ..... end;    procedure TForm1.DBGrid1Enter(Sender: TObject); begin .... end;    procedure TForm1.DBGrid1Exit(Sender: TObject); begin .... end;    来判断的！

Hi!sos_admin  區分點擊位置的原因如下：  1)如果在Record上DblClick,則把當前Record放到StringGrid中,  2)如果在DBGrid的空白處DblClick，應沒有資料放到StringGrid中,  但實際確將最後一個Record放到StringGrid中。   故有此問    

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
 I:integer;
begin
 for I := 0 to  adoquery1.FieldCount-1 do
 begin
   stringgrid1.Cells[i,0]:=adoquery1.Fields[i].AsString;
 end;
end;
 

如果在DBGrid的空白處DblClick，應沒有資料放到StringGrid中, 但實際確將最後一個Record放到StringGrid中。 没有发生这种情况的,请问您的〔空白處〕是指哪儿？

引言: Hi!sos_admin 區分點擊位置的原因如下： 1)如果在Record上DblClick,則把當前Record放到StringGrid中, 2)如果在DBGrid的空白處DblClick，應沒有資料放到StringGrid中, 但實際確將最後一個Record放到StringGrid中。 故有此問

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
 I:integer;
begin
 for I := 0 to  adoquery1.FieldCount-1 do
 begin
   stringgrid1.Cells[i,0]:=adoquery1.Fields[i].AsString;
 end;
end;
 

其實您在DBGrid的空白處Double Click，肯定會有資料寫入StringGrid中，會寫入StringGrid的原因是根據您的adoquery1的指標指向目前的那一筆，而不是因為您在DBGrid的空白處Double Click就不會寫資料到StringGrid中，所有這並不是程式的問題，您可以向user這樣解釋… ~小弟淺見，參考看看~

Hi!SOS_admin,您好!  DBGrid空白处入图中所示: Hi！channel,您好! 晚輩是這樣設想:

 
  if DBGrid1Dbclick不在空白處 then
     begin
       for I := 0 to  adoquery1.FieldCount-1 do
        begin
         stringgrid1.Cells[i,0]:=adoquery1.Fields[i].AsString;
        end;
     end;
 

這樣在DBGrid中空白處Dbclick就不會有資料寫入.但如何判斷呢？

mathewzhao 兄： 使用dbgrid好象不能实现您这样的想法。 dbgrid 不能您点击左边或右边的空白区域，都会触发的---并且处理的是当前所指向的记录。 我想最好的方式，莫过于不显示您的空白区域哦

Hi!SOS_admin兄,下午好!    人世間最大的痛苦莫過於此:感覺近在嘴邊,卻吃不到肚裏. 以為

是要這樣嗎??    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;    type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ListBox1: TListBox;
    Table1NAME: TStringField;
    Table1SIZE: TSmallintField;
    Table1WEIGHT: TSmallintField;
    Table1AREA: TStringField;
    Table1BMP: TBlobField;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
    FHitCell:Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  if FHitCell then
     ListBox1.Items.Add(Table1.FieldByName('NAME').AsString);
end;    procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FHitCell:=False;
end;    procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  FHitCell:=True;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  FHitCell:=False;
end;    end.    

直接繼承至DBGrid,改寫MouseDown函式會更好. Just coding... Taiwan:http://code6421.ktop.com.tw China:http://home.hoolee.com/~code6421

------
Just codeing...

mathewzhao 兄： 这样也可以实现您的想法了！< >< > 〔就再多問一句:在>看红色 > >> >> ;