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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.033128976821899 seconds