Delphi 动态创建窗体


本文整理自网络,侵删。

 
  procedure ShowMsg(sLog:string);
  var
    Frm:Tform;
    Mo:Tmemo;
  begin
    Frm:=Tform.Create(application);
    Frm.Width:=800;
    Frm.Height:=500;

    mo:=Tmemo.Create(frm);
    mo.Align:=alClient;
    mo.ScrollBars:=ssVertical;
    mo.Text:=sLog;
    mo.Parent:=frm;
    frm.Position:=poScreenCenter;
    frm.ShowModal;
    freeandnil(frm);
  end;

相关阅读 >>

Delphi 如何在richedit控件里加入链接

Delphi之软件检测更新

Delphi 封装frame到dll文件

Delphi xe2和xe3开发的程序中加入管理员权限申请

Delphi 获取webbrowser中的图片

Delphi 跳出for循环

Delphi xe5 中tmemo控件的应用――for android

Delphi windows 编程[4] - 学习窗体生成的过程四

Delphi中判断webbrowser的页面是否加载完成

Delphi删除整个目录及目录下的文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...