delphi – 是否可以在没有* .dfm和* .pas文件的情况下动态创建表
发布时间:2020-12-15 04:22:15 所属栏目:大数据 来源:网络整理
导读:是否可以创建和显示TForm而无需源文件? 我想在运行时创建我的表单,并且空的* .dfm和* .pas文件对我来说似乎没用. 谢谢 解决方法 你的意思是这样的吗? procedure TForm1.Button1Click(Sender: TObject);var Form: TForm; Lbl: TLabel; Btn: TButton;begin F
是否可以创建和显示TForm而无需源文件?
我想在运行时创建我的表单,并且空的* .dfm和* .pas文件对我来说似乎没用. 谢谢 解决方法
你的意思是这样的吗?
procedure TForm1.Button1Click(Sender: TObject); var Form: TForm; Lbl: TLabel; Btn: TButton; begin Form := TForm.Create(nil); try Form.BorderStyle := bsDialog; Form.Caption := 'My Dynamic Form!'; Form.Position := poScreenCenter; Form.ClientWidth := 400; Form.ClientHeight := 200; Lbl := TLabel.Create(Form); Lbl.Parent := Form; Lbl.Caption := 'Hello World!'; Lbl.Top := 10; Lbl.Left := 10; Lbl.Font.Size := 24; Btn := TButton.Create(Form); Btn.Parent := Form; Btn.Caption := 'Close'; Btn.ModalResult := mrClose; Btn.Left := Form.ClientWidth - Btn.Width - 16; Btn.Top := Form.ClientHeight - Btn.Height - 16; Form.ShowModal; finally Form.Free; end; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |