• 最简单的多重窗体的应用(Delphi)


    下面将要创建一个最简单的多重窗体的应用程序,其中将要设计到如果使用单元,如何进行编译、链接和创建应用程序。

    1、选择主菜单的【File | New | Application】,创建一个新的工程;

    2、把默认创建Form1窗口的Name属性改为“MainForm”,把Caption属性改为“Multiple Forms Test Program”;

    3、保存工程。并以Main.pas名保存单元,以Multiple.dpr名保存工程;

    4、MainForm的窗体上放置一个按钮,并使按钮的Name为“btnShowForm2”,Caption属性为“ShowForm2”,如下:

    0067

    5、从主菜单选择【File | New | Form】(或者点击工具栏上的“New Form”按钮)建立一个新窗口。新建立的这个窗口默认名字为Form1,通过拖动该窗口右下角,缩放该窗口,使得该窗口比MainForm小,且显示在MainForm的中央,如下:

    0068

    6、把新建的Form1窗口的Name属性改为“SecondForm”,Caption属性改为“A Second Form”;

    7、选择工具栏上的“Save File”按钮,保存此单元为Second.pas

    8、选择Label组件,并拖放到SecondForm上,并把它的Caption属性改为“This is the second form”,并把Font属性中的Size该为自己喜欢的大小,且把Label标签放置到SecondForm的中央位置;

    0069

    9、点击MainForm窗口,然后双击“ShowForm2”按钮,Code Editor将显示出来,并且定位光标到输入代码的方法(双击按钮将产生一个OnClick事件),如下:

    0070

    10、输入代码如下:

    procedure TMainForm.btnShowForm2Click(Sender: TObject);
    begin
      SecondForm.ShowModal; { 显示出SecondForm模式化窗口}
    end;

    11、运行F9此程序,将会得到一个消息框如下:

    0071

    点击Yes按钮,Delphi将会把Second单元添加到Main单元的uses清单中。

    再次点击F9运行该程序后,点击主窗体上的“ShowForm”按钮,第二个窗口将创建显示出来,通过点击窗体标题栏上的关闭(X)可以关闭第二个窗口。

    0072

    添加单元

    上面的第11步中,是通过Delphi提醒为uses清单中添加单元的,我们也可以自行增加单元,既可以在Main.pas中的uses清单中键入Second单元,也可以从主菜单选择【File | Use Unit】。

    现在我们返回第10步(可以在Main.pas中找到“use Second;”这句删除掉)。

    选中MainForm窗口,然后点击主菜单的【File | Use Unit】,将弹出Use Unit对话框,如下:

    0073

    选择要添加的单元,并点击OK,Delphi将会把此单元增加到当前窗体的uses清单中。

    如果你安装了“CnPack IDE Wizards”专家包的话,通过主菜单【File | Use Unit】将弹出下面的对话框,其实功能和Delphi自带的Use Unit对话框是一样的,如下:

    0074

    Note

    Use Unit对话框中所显示的单元只是以工程中已存在且未包含在当前单元之中的单元名称。已经被包含的单元将不再列表框中显示。

    以上代码均在Delphi中测试通过,示例代码下载:多重窗体的应用.rar

  • 相关阅读:
    给vs2012轻松换肤
    几种软件常用授权方式总结
    Discuz X2多人斗地主[消耗论坛积分]小体积版本,仅25MB!
    关于Socket 设置 IPAddress.Any 情况下,出现服务器积极拒绝的问题
    以前看过一个压缩过的.exe,运行会播放长达半小时的动画,却只有60KB,个人认为其中的原理
    VisualSvn Server安装和使用
    socket短时间内重连需注意的问题
    PostgreSQL在何处处理 sql查询之十一
    PostgreSQL在何处处理 sql查询之十三
    PostgreSQL在何处处理 sql查询之十四
  • 原文地址:https://www.cnblogs.com/pchmonster/p/2309239.html
Copyright © 2020-2023  润新知