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 memo 文本列合并

Delphi 安卓原生的toast温柔提示

Delphi 中文姓名 合法性检查

Delphi Delphi copy,pos,delete win api 版

Delphi xe开发 android 开机自动启动

Delphi编程如何判断图片文件的真实类型？

Delphi debug release区别是什么？

Delphi listview用法

Delphi中的instrrev函数(倒找文本)

Delphi 删除字符串中指定字符

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

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