uloginfo.pas

非长好的DELPHI办公系统 直接可以用

unit uLogInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, Menus, ExtCtrls;

type
  TfrmLog = class(Tform)
    pmLog: TPopupMenu;
    miDel: TMenuItem;
    meoLog: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure miDelClick(Sender: TObject);
    procedure pmLogPopup(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLog: TfrmLog;

implementation

uses uGlobal;

{$R *.dfm}

procedure TfrmLog.FormCreate(Sender: TObject);
begin
  inherited;
  if FileExists(MyApp.Path + 'log.dat') then meoLog.Lines.LoadFromFile(MyApp.Path + 'log.dat');
end;

procedure TfrmLog.miDelClick(Sender: TObject);
begin
  if MessageBox(Handle, PAnsiChar('要删除日志信息吗?'), '提示', MB_YESNO + MB_ICONQUESTION) = IDYES then
  begin
    if FileExists(MyApp.Path + 'log.dat') then DeleteFile(MyApp.Path + 'log.dat');
    Log.Items.Clear;
    meoLog.Lines.Clear;
  end;
end;

procedure TfrmLog.pmLogPopup(Sender: TObject);
begin
  miDel.Enabled := meoLog.Text <> '';
end;

end.