关于Delphi组件的1个简单问题（初学者，不要笑俺）

来源：百度知道 编辑：UC知道 时间：2024/06/17 04:37:29
1、一个主窗体上我放置一个“button1”组件，caption属性为“强度校核”，运行时我单击此按钮能链接到“强度校核“界面，那button1的 begin end;之间应咋编程。（强度校核窗体与主窗体在同一文件夹）
看看这个链接再http://zhidao.baidu.com/question/97455873.html

类似这样的写法:

procedure TFmain.S1Click(Sender: TObject);
begin
Application.CreateForm(TFuser, Fuser);
Fuser.ShowModal;
//或者 Fuser.show; showmadal的意思是打开后原窗体不可点击.
end;

Fuser为需要打开的窗体, 你那里的名字可能是Form1,Form2一类的.
需要注意如果你的窗体在程序启动时候已经最为主窗体创建,那么就用下面方法.

procedure TFmain.S1Click(Sender: TObject);
begin
//如果打开的窗体已经随主窗体创建,那么就这么写即可.

Fuser.ShowModal;

end;

有不明白的地方随时hi我..

Form_Page:=TForm_Page.Create(Self);
try
Form_Page.ShowModal;
finally
Form_Page.Free;
end;

form_page是你要新建的窗体名字
需要注意的是这样做的话要在工程文件里把form_page窗口的create语句去掉

=2也等于王