How to create a OnCellDblClick for Delphi's TDBGrid
I'm a newbie when it comes to creating new events to components... and I noticed that TDBGrid
has a OnCellClick
, but sadly it doesnt have an OnCellDblClick event and it bothers me a lot the fact that if I double click anywhere in my grid the selected row will be used...
So, I wanted to create the OnCellDblClick event, but as I've said earlier, I don't know how to do it.
I noticed that a lot of people want this same event, but I can't find the answerd to it.
Is it possible to know if the double click was on a record, if it was, then do all the stuff I want with it?
Maybe you can use the DblClick
together with the MouseDown
event of the DBGrid
But this will only work if the Options.dgRowSelect
is false
for example
type TForm1 = class(TForm) private FEmptySpace : boolean; ... procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin // in my test I only get here when clicked on empty part of the dbgrid FEmptySpace := TRUE; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); begin if FEmptySpace then showmessage('clicked in the middle of nowhere...') else showmessage(DBGrid1.Fields[DBGrid1.SelectedField.Index].AsString); FEmptySpace := FALSE; end;
I have not tested this in all situations
In my test
Options.Editing := false
Options.dgRowSelect := false
Readonly := true
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步