荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: Peter (小飞侠), 信区: Program
标  题: Dynamic Create
发信站: BBS 荔园晨风站 (Mon Jan 25 22:38:23 1999), 转信


    Delphi中动态创建Form:
    (1)定义即将创建的Form变量;
    (2)调用TForm的创建方法;
    (3)修改新创建的Form的属性。

    Sample:

    procedure TForm1.Button1Click( Sender: TObject );
    var
      FrmChild: TForm;
    begin
      FrmChild := TForm.Create( Self );
      with FrmChild do
        begin
        FormStyle := fsStayOnTop;
        ShowModal;
        end;
    end;

    此处使用了Windows中的非模式对话框,可另你新创建的Form在Main Form处于
最小化时仍不改变其状态!

--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店