其他

开发平台：

Delphi

MsgView.pas：源码内容

							unit MsgView;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;
type
  TMsgViewDlg = class(TForm)
    ViewMemo: TMemo;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    class procedure Execute(msg:String);
  end;
implementation
{$R *.DFM}
{ TMsgViewDlg }
class procedure TMsgViewDlg.Execute(msg: String);
begin
with (TMsgViewDlg.Create(Application))do
    begin
    ViewMemo.Lines.Add(msg);    
    ShowModal;
    Free;
    end;
end;
end.

						