转载自：https://www.cnblogs.com/xumenger/p/4440620.html TThread在Classes单元里的声明如下123456789101112131415161718192021222324252627282930313233343536type TThread = class private FHandle: THandle; FThreadID: THandle; FTerminated: Boolean; FSuspended: Boolean; FFreeOnTerminate: Boolean; FFinished: Boolean; FReturnValue: Integer; FOnterm...
TForm1 = class(TForm)privateFEmptySpace : 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 dbgridFEmptySpace := TRUE; end;procedure TForm1.DBGrid1DblClick(Sender: TObject); beginif FEmptySpace thenshowmessage(‘clicked in the middle of nowhere...‘)elseshowmess...