messagebox.pas

来自「delphi 完全原代码,可以在d7 and windows xp下编译通过」· PAS 代码 · 共 98 行

unit messageBox;

interface

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

type
  TMsgBox = class(TForm)
    Panel_msgInfo: TPanel;
    Label_msgInfo: TLabel;
    Label_close: TLabel;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure Panel_msgInfoDblClick(Sender: TObject);
    procedure Label_msgInfoDblClick(Sender: TObject);
    procedure Label_closeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_closeMouseLeave(Sender: TObject);
    procedure Label_closeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label_msgInfoMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure Label_msgInfoMouseLeave(Sender: TObject);
    procedure Label_msgInfoMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MsgBox: TMsgBox;

implementation

{$R *.dfm}

procedure TMsgBox.FormShow(Sender: TObject);
begin
  //----播放声音----//
  PlaySound('RING.WAV',0,SND_LOOP);
  PlaySound('RING.WAV',0,SND_LOOP);
  //PlaySound('RING.WAV',0,SND_LOOP);
end;

procedure TMsgBox.Panel_msgInfoDblClick(Sender: TObject);
begin
  self.Hide;
end;

procedure TMsgBox.Label_msgInfoDblClick(Sender: TObject);
begin
  self.Hide;
end;

procedure TMsgBox.Label_closeMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  self.Label_close.Font.Style:=[fsUnderline];
  self.Label_close.Font.Color:=clBlue;
end;

procedure TMsgBox.Label_closeMouseLeave(Sender: TObject);
begin
  self.Label_close.Font.Style:=[];
  self.Label_close.Font.Color:=clBlack;
end;

procedure TMsgBox.Label_closeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  self.Hide;
end;

procedure TMsgBox.Label_msgInfoMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  self.Label_msgInfo.Font.Style:=[fsUnderline];
  self.Label_msgInfo.Font.Color:=clBlue;
end;

procedure TMsgBox.Label_msgInfoMouseLeave(Sender: TObject);
begin
  self.Label_msgInfo.Font.Style:=[];
  self.Label_msgInfo.Font.Color:=clBlack;
end;

procedure TMsgBox.Label_msgInfoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  self.Hide;
end;

end.