加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

FormCreate在Delphi中的问题

发布时间:2020-12-15 09:37:58 所属栏目:大数据 来源:网络整理
导读:我正在使用别人的代码,我正在添加一个新表单 所以,我已经创建了表单,我可以打开它,使用按钮和列表等,但我在使用formcreate时遇到问题. 我通过这样做来制作表格: procedure TModelForm.RepeatOpen(Sender: TObject);var DefForm : TForm5;begin DefForm := T
我正在使用别人的代码,我正在添加一个新表单

所以,我已经创建了表单,我可以打开它,使用按钮和列表等,但我在使用formcreate时遇到问题.

我通过这样做来制作表格:

procedure TModelForm.RepeatOpen(Sender: TObject);
var
 DefForm : TForm5;
begin
 DefForm := TForm5.Create(Self);

 Self.Visible := False;
 try
  DefForm.ShowModal;
 finally
  Self.Visible := True;
  DefForm.Release;
 end;
end;

在我的TForm5中,我有一个程序

procedure TForm5.FormCreate(Sender: TObject);
begin
 inherited;
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

但它没有做任何事情

我也有

procedure TForm5.PopulateListClick(Sender: TObject);
begin
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

它被分配给一个按钮,这实际上可以工作并填充我的ListBox

我一直在网上查找它,似乎没有OnCreate函数,有一种方法可以覆盖它,但似乎应该有一种方法来定义框架首次创建时会发生什么

另外,我使用FormCreate的原因是因为我正在使用的代码正在做什么,而且它似乎正在工作

谢谢!

解决方法

你是说,你的事件处理程序没有执行? 如果是这样,您是否忘记将该过程分配给Form的OnCreate属性?

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读