我是初学者,做了一个小软件,可是有两个问题怎么也解决不出来,望各位指点一下:

第一个:
如上图所示,按下"确定"按钮后怎么连接下一个页面?

第二个:


这是用MDI做的两个页面,可是子窗体,关闭不了,看书中说是"不能直接关闭,要释放内存,在子窗体的OnClose事件上写如下程序: Action:=caFree;"
不过按上面的过程来做还是解决不了问题,子窗体没有一点反映,平时,在"关闭"按钮上写下"Close"窗口也就关闭了,可这次写也不行,请教指点一下?

Thank you!

参考下MDI application

或者发你的关键代码上来

首先,非常感谢你!第二个问题我解决了,
现在,只有第一个还没有想出来.

也许是我表达不清,我是想,在输入用户名和密码后,按"确定"按钮就可以进入下一个页面.

第一个问题我明白你的意思，这个应该比较好解决的，就是 显示或隐藏窗体，你多建一个窗体点确定后隐藏自身，显示第二个窗体就是了，show 和 Hide来做不行么？
或者复杂点，密码不正确的话不创建第二个窗体，我写个简单的代码给你

shift + ctrl + F11 选择主窗体为第二个窗体：
工程文件：
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
if Form2.judgeCode then
begin
Application.CreateForm(TForm1, Form1); // 创建主窗体
end
else
begin
Exit;
end;
Application.Run;
end.
判断密码的窗体：这里我简化了，只判断他输入的是不是‘1111’；数据库的密码
function TForm2.judgeCode(): Boolean;
var
ret: Integer;
begin
Result := False;
Edit1.Text := '';
ret := Self.ShowModal;
if ret = Mrok then
begin
Result := True;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Self.Hide();
if Edit1.Text = '1111' then
begin
ModalResult := MrOK;
end
else
begin
Self.Show();
ModalResult := mrNone;
end;
end;

谢谢你,我在好好分析一下,有什么问题我再请教!