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 的编译指令(1): $define、$undef、$ifdef、$else、$endif

Delphi 判断网络是否连通

Delphi 从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）

Delphi 新版内存表 fdmemtable

Delphi xe5 android手机端转换ansi字符串

Delphi 搜索内存偏移函数

Delphi case of

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

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

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