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中strtodatetime函数tformatsettings参数的使用

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

选择 Delphi 的 9 条理由

Delphi base64加解密

Delphi使用cef4Delphi制作chromium谷歌内核浏览器

Delphi过程函数传递参数的八种方式

Delphi unigui 安装和配置hyperserver

Delphi 双击隐藏tabsheet

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi 将tbitmap与tgpimage转换

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

转载请注明出处：木庄网络博客 » Delphi 动态创建窗体