代码// 自定义事件过程,过程名可以任意取procedure TForm1.OnClick(Sender: TObject);begin if Sender is TButton then begin if TButton(Sender).Name = 'button1' then .. . ...……
procedure TForm1.btnDoSumClick(Sender: TObject);var i: Integer;begin if DBGrid1.SelectedRows.Count amp;amp;gt; 0 then begin with DBGrid1.DataSource.DataSet do begin ...……