请问这样？的效果怎么实现？

Question

请问：可执行程序最小化后，怎么实现恢复窗体需要通过密码验证窗体？

Answer 1

我KAO，楼主你多看点基础书吧

Answer 2

我kao,本来就没基础，现看已来不及，麻烦你别卖乖，我急用，谢谢

Answer 3

你用個 控件 ApplicationEvents1
在Addtional 面板下
處理  OnRestore 事件 就可!!!重新顯示你的 密码验证窗体

Answer 4

这个问题有意思，随手写的，基本实现：
procedure TForm1.FormConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
var  ClickedOK: Boolean;
     PWD:string;
begin
  while PWD<>'123456' do
  ClickedOK := InputQuery('输入', '密码', PWD);
end;

Answer 5

谢谢释疑
我都埋怨自己怎么这么差，还不理解，所以拜托，再具体点：
aiirii(ari-爱的眼睛)：首先谢谢你，我试过了，照你说的做，两个窗体均出现，还可来回切换
但是呢，我觉得你这种方法可行（可能是我的代码有问题），所以，帮忙帮到底，能不能告知我具体代码。
samcrm(镜花水月)：至于你，同样感谢。你的方法我同样试过，但我认为，这不是我所要的，我想要的是，《〈最小化后，点击任务栏恢复窗体，需要密码验证，才可恢复〉》。
 
顺便问一句：我真么给你们送分，同时欢迎其他朋友给我释疑。

Answer 6

用
 密码验证窗体.ShowModal;就不可以来回切换了!!!!>>顺便问一句：我真么给你们送分，同时欢迎其他朋友给我释疑。
点下面的按钮"管理"
进去后, 给分, 输入密码,按给分,就可以了

Answer 7

你加上一句：
  MainForm.hide;
在密码验证窗体:
  密码验证后:
  MainForm.Show;

Answer 8

要效果更好可以捕捉系统消息.
定义:
  procedure SysCommandProc(var Msg: TWMSysCommand); message WM_SysCommand;
实现:
  procedure TForm1.SysCommandProc(var Msg: TWMSysCommand);
  begin
    if Msg.CmdType = SC_MINIMIZE then MainForm.Hide;
    if Msg.CmdType = SC_RESTORE then SubForm.Show;
    Inherited;
  end;
在子窗体中
  验证密码后;
  MainForm.Show;

Answer 9

请问chw_csdn_chw(chw) 先生/小姐:按照你的设计,具体代码怎么实现?