clog.pas

来自「邮件系统的代码」· PAS 代码 · 共 43 行

unit cLog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, se_controls, ksskinstdcontrol, KsSkinForms, ExtCtrls;

type
  TfrmLog = class(TForm)
    SeSkinForm1: TSeSkinForm;
    Memo3: TSeSkinMemo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure AddMsg(inStr:string);
  end;

var
  frmLog: TfrmLog;

implementation

uses cMain;

{$R *.dfm}

{ TfrmLog }

procedure TfrmLog.AddMsg(inStr: string);
begin
   memo3.Lines.Add(inStr);
end;

procedure TfrmLog.FormShow(Sender: TObject);
begin
  self.Caption:=Application.Title;
end;

end.