admsgunt.pas

絮语2007视频聊天软件源程序.仅供参考

unit admsgunt;

interface

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

type
  Tadmsgfrm = class(TForm)
    myimg: TImage;
    Titles: TLabel;
    Msgtxts: TLabel;
    close_button: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure close_buttonClick(Sender: TObject);
    procedure myimgMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    procedure process_custom_message(var msg:tmessage);message refresh_status;
    { Private declarations }
  public
    autoclose:boolean;
    { Public declarations }
  end;

implementation
uses udpcores,shareunit;
{$R *.DFM}

procedure Tadmsgfrm.FormCreate(Sender: TObject);
begin
addhwnd(handle);
udpcore.changeLayered(handle);
left:=screen.Width-width-10;
top:=screen.Height-height-30;
timer1.Enabled:=true;
end;

//------------------------------------------------------------------------------
// 自定义消息
//------------------------------------------------------------------------------
procedure Tadmsgfrm.process_custom_message(var msg:tmessage);
begin
case msg.WParam of
  xy_form_close:close;
  end;
end;

procedure Tadmsgfrm.close_buttonClick(Sender: TObject);
begin
close;
end;

procedure Tadmsgfrm.myimgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
timer1.Enabled:=false;
end;

procedure Tadmsgfrm.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
if autoclose then close;
end;

procedure Tadmsgfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
delhwnd(handle);
Action:=cafree;
Tadmsgfrm(self):=nil;
end;

procedure Tadmsgfrm.FormShow(Sender: TObject);
var picfile:string;
begin
picfile:=udpcore.pic.getmd5tofile(msgbkpic);
if fileexists(picfile)then
 begin
  try
  myimg.Picture.LoadFromFile(picfile);
  except
    on EInvalidGraphic do
       myimg.Picture:= nil;
  end;
 end; 
end;

end.