cmessage.pas

根据箱号

unit Cmessage;

interface

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

type
  Tmessage = class(TForm)
    Panel_main: TPanel;
    Image_caption: TImage;
    Label_caption: TLabel;
    m_close: TSpeedButton;
    SB_tools: TSpeedButton;
    Memo_message: TMemo;
    Timer: TTimer;
    PopMenu: TPopupMenu;
    PopMenu_selectall: TMenuItem;
    PopMenu_saveas: TMenuItem;
    PopMenu_clear: TMenuItem;
    N3: TMenuItem;
    PopMenu_notshow: TMenuItem;
    PopMenu_alwaysshow: TMenuItem;
    PopMenu_autohide: TMenuItem;
    PopMenu_top: TMenuItem;
    N5: TMenuItem;
    PopMenu_notclear: TMenuItem;
    PopMenu_hide: TMenuItem;
    SaveDialog_log: TSaveDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure m_closeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  message: Tmessage;

implementation

uses Cmain, Clogin;

{$R *.dfm}

procedure Tmessage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tmessage.m_closeClick(Sender: TObject);
begin
  self.hide;
end;

procedure Tmessage.FormCreate(Sender: TObject);
begin
  timer.Enabled:=true;
  Memo_message.Lines.LoadFromFile('\\'+main.dataip+'\手机销售管理系统\data\即时消息提示.txt');
end;

end.