DBGrid-OnEditButtonClick 表格内部按钮

 

procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);

begin

Showmessage(DBGrid1.SelectedField.AsString);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

DBGrid1.DataSource:=DataSource1;

DataSource1.DataSet:=ADOQuery1;

ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+

          'Data Source=f:\mcmygs.mdb;'+

          'Persist Security Info=False;'+

          'Jet OLEDB:Database Password=123456';

ADOQuery1.SQL.Text:='Select 自编号,合同号,币种,金额,银行 from dzb';

ADOQuery1.Open;

//TColumnButtonStyle = (cbsAuto, cbsEllipsis, cbsNone);

DBGrid1.Columns[1].ButtonStyle:=cbsEllipsis;

end;