[代码]动态创建窗体

程序动态创建窗体,是优化程序一个很重要的细节。

procedure TForm1.N3Click(Sender: TObject);
var
  Form2:TForm2;
begin
  Form2:=TForm2.Create(nil);
  try
    Form2.ShowModal;
  finally
    form2.Free;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CAFree;
  self.Release;
end;
分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~