Delphi的窗体调用

来源：百度知道 编辑：UC知道 时间：2024/05/15 06:34:33
请问我做个主窗体和个子窗体,我主窗体放上一个按钮,我点击按钮时,显示出子窗体,隐藏主窗体,显示出来的子窗体,点击退出按钮,在回到主窗体,这样的调用该怎么写,小弟新手,请多多指教
你可以把程序写出来吗?我有点不明白
先谢谢你了

第一个窗体中的按钮名字为btn1
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls，unit2; //引用窗体2的单元文件

type
TForm1 = class(TForm)
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
form1.Hide;
Form2.ShowModal;
end;

end.
第二个窗体中按钮的名字为btn2
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
btn2: TButton;
procedure btn2Click(Sender: TObject);
private
{ Private declarations }<