dbgrid怎样判断mouse点击的是最上面的表头还是具本的record? |
缺席
|
luowy651
高階會員 發表:257 回覆:313 積分:114 註冊:2003-04-09 發送簡訊給我 |
各位大大好,我想问一下,
dbgrid怎样判断mouse点击的是最上面的表头还是具 体的record? 在dbgrid中虽有一个O n D b l C l ic k,但它并不区分是column还是record,而我的目的是想在O n D b l C l ic k,把它们分开来判断 |
luowy651
高階會員 發表:257 回覆:313 積分:114 註冊:2003-04-09 發送簡訊給我 |
找到方法了:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; ADOTable1: TADOTable; DataSource1: TDataSource; procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure DBGrid1DblClick(Sender: TObject); private GC: TGridCoord; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin GC := DBGrid1.MouseCoord(x, y); end; procedure TForm1.DBGrid1DblClick(Sender: TObject); begin if (GC.X > 0) and (GC.Y > 0) then begin ShowMessage('DBCLICK'); end; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |