关于子窗体显示有关问题
关于子窗体显示问题
想实现这样的一个功能，就是在窗体上单击鼠标后再按下某一按键（或者顺序相反），能显示出一个子窗体？请大神指教！！
------解决方案--------------------
新建一个项目，然后在菜单 file->new->form delphi 创建第二窗体（第一个窗体即主窗体），
假设第二个窗体的单元名为 unit2，
在主窗体的单元中（假设主窗体单元名为unit1）uses unit2
接着
想实现这样的一个功能，就是在窗体上单击鼠标后再按下某一按键（或者顺序相反），能显示出一个子窗体？请大神指教！！
MDI
Form
------解决方案--------------------
新建一个项目，然后在菜单 file->new->form delphi 创建第二窗体（第一个窗体即主窗体），
假设第二个窗体的单元名为 unit2，
在主窗体的单元中（假设主窗体单元名为unit1）uses unit2
接着
uses Unit2; // 引用第二个窗体所在单元
var
isClickForm:Boolean = False; // 全局变量，用来断定是否鼠标点击了窗体
// 主窗体的 Click 时间
procedure TForm1.FormClick(Sender: TObject);
begin
isClickForm:=True; // 标记当前点击了主窗体
end;
// 主窗体的 keypress 事件
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
// 如果当前点击了主窗体，并且按下了键盘的 a 键
if (isClickForm) and (Key = 'a') then
begin
isClickForm:=False;// 重置回false
Form2.Caption:='我是第二个窗体。。。。。。。。。';
Form2.Show; // 调用unit2单元中的form2窗体对象的show方法显示该窗体
end;
end;