Delphi中点击DBGrid中某一单元格时，后面出现个按钮可以点进去，出现一个新窗体，进行选择。

Posted 2023-03-09

选择完后，自动添加到DBGrid中。

用delphi自带的DBGrid就能很好的实现这个功能：
在DBGrid 中添加你要再Grid中显示的所有字段（columns属性),然后选择你要出现按钮的那个字段，将属性ButtonStyles 设置为cbsEllipsis，然后再 DBGrid 的 OnEditButtonClick时间中编写探出新窗口的代码即可 参考技术A 在新窗口form2里，比如有一个adoquery2数据的条目供选择，用户选择好后按‘增加’按钮，可以这样设定：
procedure TForm2.okBtnclick(Sender: TObject);
begin
mainform1.query1.insert; // 在query1里增加
mainform1.query1.fieldbyname('field1').asstring := query2.fieldbyname('field1').asstring;
mainform1.query1.fieldbyname('field2').asstring := query2.fieldbyname('field2').asstring;
mainform1.query1.fieldbyname('field3').asstring := query2.fieldbyname('field3').asstring;
// ... 根据query2设定增加的数据值
mainform1.query1.post; // 写数据库
close; // 把当前的form2关闭
end; 参考技术B 使用ehlib第三方控件，dbgrideh，你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了，如果有多列数据要显示，用逗号分开。 参考技术C 使用ehlib，dbgrideh控件可以实现，你可以在dbgrideh里的某一列增加editbuttons
然后在button写click事件就可以了