DELPHI動態建立窗體

//第一種方式

procedure tform1.btn1click(sender: tobject);
begin
try   showmodal;
finally
free;
end;
end;
//第二種方式
procedure tform1.btn2click(sender: tobject);
begin
if not assigned(form2) then
begin
form2:=tform2.create(nil);
form2.show;
endend;
//第二種方式建立的的窗體需要在form2裡釋放資源
procedure tform2.formclose(sender: tobject; var action: tcloseaction);
begin
form2:=nil;           //form物件指向空位址
action := cafree;     //form關閉後釋放占用的記憶體
end;

1.引用 tform2.

2.在form1中使用如下**建立

Delphi 窗體建立過程

來自大富翁.1 tcustomform.create 在 tcustomform.create 中呼叫 tcustomform.createnew 2 tcustomform.createnew 呼叫 fcanvas tcontrolcanvas.create 觸發 tcontrolcanvas.c...

delphi動態呼叫dll窗體

宣告 tshowform function ahandle thandle acaption pchar boolean stdcall 呼叫 procedure tform1.n5click sender tobject var mainfrm,dllform thandle showform t...

根據窗體名稱動態建立窗體

unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graphics,controls,forms,dialogs,stdctrls,buttons,comctrls,db,adodb type tform1 clas...