DBGRIDEH 关闭editbuttonclick选择后弹出窗体

在官网找到解决方法,修改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;

你可能感兴趣的:(Delphi开发总结)