1. \u7a97\u53e3\u663e\u793a\u3001\u5173\u95ed
\n\u6ce8\u610f\uff1a\u5f53\u524d\u7a97\u53e3\u7684\u5c5e\u6027\u4e0e\u65b9\u6cd5\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528\uff0c\u4e0d\u7528\u4f7f\u7528form.\u683c\u5f0f
\nclose\uff1b
\n\u4f1a\u76f4\u63a5\u5173\u95ed\u672c\u7a97\u53e3
\nform2.close\u4f1a\u5173\u95ed\u5176\u5b83\u7a97\u53e3
\nCaption := 'abc'
\n\u4f1a\u4fee\u6539\u672c\u7a97\u53e3\u7684\u540d\u79f0<\/p>\n
ShowMessage('fdsa');
\n\/\/\u76f4\u63a5\u663e\u793a\u6d88\u606f\u63d0\u793a\uff0c\u63d0\u793a\u7a97\u53e3\u6807\u9898\u662f\u9879\u76ee\u540d\u79f0<\/p>\n
2. unit\u95f4\u5171\u7528\u53d8\u91cf\uff08\u5168\u5c40\u53d8\u91cf\uff09
\nunit1\u4e2d\u7684var\u589e\u52a0\uff1a
\nConst i : integer = 5;
\nunit2\u4e2d\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528\uff0c\u5982
\nIntToStr(i)<\/p>\n
3. \u8bbe\u7f6e\u4e3b\u7a97\u53e3\uff08\u4f7f\u7528\u5176\u5b83\u7a97\u53e3\u4f5c\u4e3a\u4e3b\u7a97\u53e3\uff09
\n\u9879\u76ee\u9009\u9879\u2014\u2014\u7a97\u53e3
\n\u5728\u81ea\u52a8\u521b\u5efa\u7a97\u53e3\u4e2d\uff0c\u5c06\u8981\u8bbe\u7f6e\u4e3a\u4e3b\u7a97\u53e3\u7684form\u79fb\u52a8\u5230\u6700\u4e0a\u65b9\uff08\u6700\u4e0a\u65b9\u7684\u4e3a\u542f\u52a8\u7684\u65f6\u5019\u542f\u52a8\u7684\u7a97\u53e3\uff09<\/p>\n
4. \u6539\u53d8\u7a97\u53e3\u542f\u52a8\u65b9\u5f0f
\n\u4e0d\u7528\u5728\u9879\u76ee\u542f\u52a8\u65f6\u542f\u52a8\u6240\u6709\u7a97\u53e3\uff08\u5305\u542b\u4e0d\u663e\u793a\u7684\uff09
\n\u53ef\u4ee5\u6253\u5f00\u9879\u76ee\u7684lpr\u6587\u4ef6\uff0c\u5220\u9664\u6216\u6ce8\u91ca\u4ee5\u4e0b\u8bed\u53e5\uff08\u4ee5form2\u4e3a\u4f8b\uff09
\n\/\/Application.CreateForm(TForm2, Form2);
\n\u5728\u9700\u8981\u663e\u793a\u7684\u4e8b\u4ef6\u63d2\u5165\u4ee5\u4e0b\u4ee3\u7801
\n Form2:=TForm2.Create(Nil); \/\/Form2 is created
\n Form2.ShowModal; \/\/Form2 is displayed
\n\u7a97\u53e3\u4f1a\u88ab\u5efa\u7acb\u3001\u663e\u793a\uff0c\u5173\u95ed\u540e\u9700\u8981\u91ca\u653e
\n FreeAndNil(Form2); \/\/\u56de\u5230\u4e0a\u4e00\u7ea7\u7a97\u53e3\u518d\u91ca\u653e
\n\u6ce8\u610f\uff1a<\/p>\n
5. \u52a8\u6001\u521b\u5efa\u7a97\u53e3
\n\u793a\u4f8b\u4ee3\u7801\u5982\u4e0b\uff1a
\nprocedure TForm1.Button1Click(Sender: TObject);
\nvar
\n MyForm: TForm;\/\/\u5b9a\u4e49\u7a97\u53e3
\n MyButton: TButton;\/\/\u5b9a\u4e49\u6309\u94ae
\nbegin
\n MyForm:=TForm.Create(nil); \/\/\u521b\u5efa\u7a97\u53e3
\n MyForm.SetBounds(100, 100, 220, 150); \/\/\u7a97\u53e3\u6253\u5f00\u5728\u5c4f\u5e55\u4e0ax\u3001y\u4f4d\u7f6e\uff0c\u7136\u540e\u662f\u7a97\u53e3\u7684\u957f\u548c\u9ad8
\n MyForm.Caption:='My dynamic created form'; \/\/\u7a97\u53e3\u7684\u6807\u9898\u680f\u547d\u540d<\/p>\n
MyButton:=TButton.create(MyForm); \/\/\u7a97\u53e3\u4e0a\u5efa\u7acb\u6309\u94ae
\n MyButton.Caption:='Close my form'; \/\/\u6309\u94ae\u7684\u540d\u79f0
\n MyButton.SetBounds(10, 10, 200, 30); \/\/\u6309\u94ae\u5728\u7a97\u53e3\u4e0a\u7684xy\u4f4d\u7f6e\uff0c\u957f\u548c\u9ad8\u6570\u636e
\n MyButton.Parent:=MyForm; \/\/parent\u6307\u7684\u662f\u663e\u793a\u8fd9\u4e2a\u6309\u94ae\u63a7\u4ef6\u7684\u63a7\u4ef6\uff0cTControl\u5fc5\u987b\u6709\u4e00\u4e2aParent\uff0c\u5426\u5219\u5b83\u6c38\u8fdc\u4e0d\u4f1a\u663e\u793a\u3002<\/p>\n
MyButton.OnClick:=@MyButtonClick; \/\/\u6309\u94ae\u589e\u52a0\u70b9\u51fb\u65b9\u6cd5\uff0c\u8fd9\u91cc\u4f1a\u62a5\u9519\uff0c\u9700\u8981\u589e\u52a0\u5bf9\u4e8b\u4ef6\u7684\u5b9a\u4e49\u548c\u8bf4\u660e<\/p>\n
MyForm.ShowModal; \/\/\u7a97\u53e3\u663e\u793a <\/p>\n
FreeAndNil(MyForm); \/\/\u5173\u95ed\u7a97\u53e3\u8fd4\u56de\u540e\u91ca\u653e
\nend;<\/p>\n
\/\/\u4ee5\u4e0b\u662f\u7ed9\u65b0\u5efa\u7a97\u53e3\u4e2d\u6309\u94ae\u7684\u5b9a\u4e49\u548c\u8bf4\u660e
\n1. \u521b\u5efa\u79c1\u6709\u58f0\u660e
\n{ TForm1 }<\/p>\n
TForm1 = class(TForm)
\n...
\n private
\n procedure MyButtonClick(Sender: TObject);\/\/\u589e\u52a0\u58f0\u660e
\n public
\n...
\n end;
\n2.\u9f20\u6807\u70b9\u51fbMyButtonClick\u540e\u6309ctrl+shift+C\uff0c\u751f\u6210\u4e8b\u4ef6\u4ee3\u7801
\nprocedure TForm1.MyButtonClick(Sender: TObject);
\nbegin<\/p>\n
end;
\n\u5728\u5176\u4e2d\u52a0\u5165\u8bed\u53e5
\n Showmessage('Attention, closing my dynamically created form!');
\n if Sender is TButton then
\n TForm(TButton(Sender).Parent).Close;
\n\u70b9\u51fb\u65f6\u5148\u5f39\u51fa\u63d0\u793a\u7a97\u53e3\uff0c\u7136\u540e\u68c0\u6d4b\u6309\u94aesender\uff0cform\u5173\u95ed\uff0c\u6839\u636esender\u68c0\u6d4b\u5b58\u653e\u8fd9\u4e2a\u63a7\u4ef6\u7684\u63a7\u4ef6\uff08\u5c31\u662fMyForm\uff09\uff0c\u5173\u95ed\uff0c\u5e76\u4e14\u8fd4\u56de\u4e3b\u7a97\u53e3\u540e\u8fd8\u6709FreeAndNil(MyForm)\uff0c\u5b8c\u5168\u91ca\u653e\u51fa\u6765\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
1. \u7a97\u53e3\u663e\u793a\u3001\u5173\u95ed \u6ce8\u610f\uff1a\u5f53...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[64],"class_list":["post-575","post","type-post","status-publish","format-standard","hentry","category-develop","tag-lazarus"],"_links":{"self":[{"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/posts\/575","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/comments?post=575"}],"version-history":[{"count":9,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/posts\/575\/revisions"}],"predecessor-version":[{"id":591,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/posts\/575\/revisions\/591"}],"wp:attachment":[{"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/media?parent=575"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/categories?post=575"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ienter.com.cn\/blog\/wp-json\/wp\/v2\/tags?post=575"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}