怎么写一个过程建立并打开MDI子窗体啊?[](2分)

  • 主题发起人 主题发起人 weisunding
  • 开始时间 开始时间
W

weisunding

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么写一个过程建立并打开MDI子窗体啊?
我是一个初学者,希望大家帮我。
 
procedure CreateAndShow;
var
frmTest: TForm;
begin
frmTest := TForm.Create(nil);
frmTest.Show;
end;
 
少一句
frmTest.FormStyle := FSMDIChild;
 
谢谢,可我想传入参数怎么办呢
我现在有一个 form1,是MDI的子窗体,我想让它创建并显示,怎么写一个过程呢?
要求是 form1 做为实参代入,像这样 CreateAndShow(form1);

希望帮我
 
procedure CreateAndShow(AForm: TForm);
begin
AForm := TForm.Create(nil);
AForm.Show;
end;
 
接受答案了.
 
后退
顶部