grideh的bug,delphi和c++builder都存在。

RAD自带的原始grid控件是好的。

 

procedure TForm12.DBGridEh2ColExit(Sender: TObject);
begin
  if DBGridEh2.SelectedField.FieldName = 't2' then
    Button1.Click();
end;

procedure TForm12.Button1Click(Sender: TObject);
begin
  FDMemTable1.Append;
  FDMemTable1.Fields.Fields[0].Value := 1;
  ShowMessage('wait');
end;

wait对话框关闭前,没有新纪录出现

 

fix  解决方法,用timer延迟调用或线程。

procedure TForm12.DBGridEh1ColExit(Sender: TObject);
begin
  if DBGridEh1.SelectedField.FieldName = 't2' then
    TThread.CreateAnonymousThread(
      procedure()
      begin
        Button1.Click();
      end).Start;

  // Timer1.Enabled := true;
end;

 

 

 

procedure TForm12.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  self.Button1.Click;
end;

 

Timer1.Interal=10;设置很短,感觉不到延迟。

posted on   lypzxy  阅读(268)  评论(0编辑  收藏  举报
编辑推荐:
· 对象命名为何需要避免'-er'和'-or'后缀
· SQL Server如何跟踪自动统计信息更新?
· AI与.NET技术实操系列:使用Catalyst进行自然语言处理
· 分享一个我遇到过的“量子力学”级别的BUG。
· Linux系列:如何调试 malloc 的底层源码
阅读排行:
· JDK 24 发布,新特性解读!
· C# 中比较实用的关键字,基础高频面试题!
· .NET 10 Preview 2 增强了 Blazor 和.NET MAUI
· SQL Server如何跟踪自动统计信息更新?
· windows下测试TCP/UDP端口连通性
历史上的今天:
2015-05-22 GIT
2015-05-22 Android apk couldn't install
点击右上角即可分享
微信分享提示