netfavorite/FormAlertMessage.pas at master · namelysweet/netfavorite · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit FormAlertMessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseFormCommon, ExtCtrls, StdCtrls, RzPanel, pngimage;

type
  TfrmAlertMessage = class(TfrmBaseCommon)
    lblMsg: TLabel;
    imgAlertMessage: TImage;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure lblMsgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblMsgMouseLeave(Sender: TObject);
    procedure lblMsgClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAlertMessage: TfrmAlertMessage;

implementation

  uses FunctionCommon, SystemConfig;

{$R *.dfm}
{*******************************************************************************}
procedure TfrmAlertMessage.FormActivate(Sender: TObject);
begin
  OnActivate:=nil;
  FlashWindow(Application.Handle, True);
end;
{*******************************************************************************}
procedure TfrmAlertMessage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  FreeAndNil(frmAlertMessage);
end;

{*******************************************************************************}
procedure TfrmAlertMessage.FormDestroy(Sender: TObject);
begin
  //²»¼Ì³Ð

end;
{*******************************************************************************}
procedure TfrmAlertMessage.FormShow(Sender: TObject);
begin
  inherited;
  Top:= Screen.Height - Self.Height - 70;
  Left:= Screen.Width - Self. Width - 30;
end;

{*******************************************************************************}
procedure TfrmAlertMessage.lblMsgClick(Sender: TObject);
begin
  inherited;
  ShowFormMessageBox;
  Close;
end;
{*******************************************************************************}
procedure TfrmAlertMessage.lblMsgMouseLeave(Sender: TObject);
begin
  inherited;
  lblMsg.Font.Style:=[fsBold];
end;
{*******************************************************************************}
procedure TfrmAlertMessage.lblMsgMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  lblMsg.Font.Style:=[fsBold, fsUnderline];
end;

{*******************************************************************************}
end.