本文整理自网络,侵删。
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 xe2和xe3开发的程序中加入管理员权限申请
Delphi xe5 中tmemo控件的应用――for android
Delphi windows 编程[4] - 学习窗体生成的过程四
更多相关阅读请进入《Delphi》频道 >>