messagesourceform.pas

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

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}

class procedure TfrmMessageSource.ShowMessageSource(AMessage: TStrings);
begin
  with TfrmMessageSource.Create(nil) do try
    RichEdit.Lines.Assign(AMessage);
    RichEdit.CaretPos := Point(0, 0);
    RichEdit.SelStart := 0;
    RichEdit.SelLength := 0;
    ShowModal();
  finally
    Release();
  end;
end;

end.