- 在DBGrid上双击“OnCellClick”事件,打开代码编辑器并添加如下代码: ```delphi procedure TForm1.DBGrid1CellClick(Sender: TObject; ACol: TColumn); var i: Integer; begin for i := 0 to 7 do // 假设有8...
yeeonefx的博客procedure TOpenCad.dbgrd1CellClick(Column: TColumn); var str:string; oldcur:TCursor; begin oldcur:=Screen.Cursor;//屏幕焦点 Screen.Cursor:=crHourGlass;... if wb1.Busy then