DBGRIDEH 关闭editbuttonclick选择后弹出窗体

最新推荐文章于 2024-10-08 14:31:17 发布

trassion

最新推荐文章于 2024-10-08 14:31:17 发布

阅读量823

点赞数

分类专栏： Delphi开发总结

本文链接：https://blog.youkuaiyun.com/Trassion/article/details/107936449

版权

Delphi开发总结专栏收录该内容

5 篇文章

订阅专栏

本文详细介绍了如何在DBAxisGridsEh单元中修改编辑按钮的默认文本，通过覆盖TDBAxisGridEhCenter的EditButtonDefaultActionText过程实现。涉及的代码段展示了在不同条件下如何处理鼠标操作，以及如何使用ADropDownFormParams.CheckShowDropDownForm函数来响应用户交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在官网找到解决方法，修改DBAxisGridsEh单元

procedure TDBAxisGridEhCenter.EditButtonDefaultActionText(
  Grid: TCustomDBAxisGridEh; AxisBar: TAxisBarEh; EditControl: TControl;
  EditButton: TEditButtonEh; EditButtonControl: TEditButtonControlEh;
  IsMouseDown: Boolean; var Handled: Boolean);
...
    ADropDownFormParams.CheckShowDropDownForm(Handled);
  end else if (EditButton.Style = ebsEllipsisEh) and not IsMouseDown then
  begin
//    Text := DBEditControl.Text;
//    AEmptyRect := EmptyRect;
//    if ShowMemoEditDialogEhProg(Text, AEmptyRect) then
//    begin
//      Grid.DataLink.Edit;
//      DBEditControl.Text := Text;
//      Grid.UpdateText;
//      Grid.UpdateData;
//      Handled := True;
//    end;
  end;
end;