messagesourceform.pas

来自「这是一套全面的网络组件」· PAS 代码 · 共 36 行

unit MessageSourceForm;

interface

uses
  Forms, ComCtrls, Classes, Controls, StdCtrls;

type
  TfrmMessageSource = class(TForm)
    RichEdit: TRichEdit;
  public
    class procedure ShowMessageSource(AMessage: TStrings);
  end;

implementation

{$R *.dfm}

{ TfrmMessageSource }

class procedure TfrmMessageSource.ShowMessageSource(AMessage: TStrings);
var
  Dlg: TfrmMessageSource;
begin
  Dlg := TfrmMessageSource.Create(nil);
  try
    Dlg.RichEdit.Lines.Assign(AMessage);
    Dlg.RichEdit.CaretPos := Point(0, 0);
    Dlg.ShowModal();
  finally
    Dlg.Free();
  end;
end;

end.