unit messageBox;

interface

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

type
  TmessageBoxFrm = class(TForm)
    Panel1: TPanel;
    msgText: TLabel;
    fadeIn: TTimer;
    startFadeOut: TTimer;
    fadeOut: TTimer;
    procedure FormShow(Sender: TObject);
    procedure fadeInTimer(Sender: TObject);
    procedure startFadeOutTimer(Sender: TObject);
    procedure fadeOutTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  messageBoxFrm: TmessageBoxFrm;

implementation

uses caFace;

{$R *.dfm}

procedure TmessageBoxFrm.fadeInTimer(Sender: TObject);
begin

  if AlphaBlendValue < 255 then
    AlphaBlendValue := AlphaBlendValue + 5
  else
  begin
    startFadeOut.Enabled := True;
    fadeIn.Enabled := False;
  end;

end;

procedure TmessageBoxFrm.fadeOutTimer(Sender: TObject);
begin

  if AlphaBlendValue > 0 then
    AlphaBlendValue := AlphaBlendValue - 5
  else
  begin
    fadeOut.Enabled := False;
    Free;
  end;

end;

procedure TmessageBoxFrm.FormCreate(Sender: TObject);
begin
  SetWindowPos(Handle,
          HWND_TOPMOST,
          0, 0, 0, 0,
          SWP_NOMOVE OR
          SWP_NOACTIVATE OR
          SWP_NOSIZE);
end;

procedure TmessageBoxFrm.FormPaint(Sender: TObject);
begin
  SetZOrder(True);
end;

procedure TmessageBoxFrm.FormShow(Sender: TObject);
begin
  caFaceFrm.PutFrmOnCordinates(Self);

  AlphaBlend := True;
  AlphaBlendValue := 0;
  fadeIn.Enabled := True;

end;

procedure TmessageBoxFrm.startFadeOutTimer(Sender: TObject);
begin
  fadeOut.Enabled := True;
  startFadeOut.Enabled := False;
end;

end.