5
« เมื่อ: 18 พฤษภาคม 2013, 04:44:39 » Animation Window (FadeIn - FadeOut)
เป็นการใสู่ลูกเล่นตอนปิด-เปิดโปรแกรม
จริงๆแล้วมีลูกเล่นมากกว่านี้ เอาไว้เขียนเป็นไฟล์ DLL จะใช้งานได้สดวกกว่า
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const AW_FADE_IN = 524288; //effects constant.
const AW_FADE_OUT = 589824;
implementation
{$R *.dfm}
function AnimateWindow
(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): bool; // Created ImportDll Function
stdcall; external 'user32.dll' name 'AnimateWindow';
procedure TForm1.FormCreate(Sender: TObject);
begin
try
AnimateWindow(self.Handle, 1000, AW_FADE_IN); //Animation FadeIn to Run.
except
self.Free;
end;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
AnimateWindow(self.Handle, 1000, AW_FADE_OUT); //Animation FadeOut to Run.
except
self.Free;
end;
end;
end.
คำชี้แจง : Delphi 2010 กับ Delphi XE4 หมดอายุ ใช้งานไม่ได้แล้ว
เจ้าของโปรแกรมค่อนข้างฉลาด บันทึกข้อมูลการใช้งานของเราไว้
ถ้าจะใช้งานต่อ ต้องขอ.. อีแมว เอ๊ยยย! อีเมล์ใหม่ = เป็นผู้ใช้คนใหม่
ตอนนี้เลยใช้ Delphi 7 ไปพลางๆก่อน Interfade เหมือน VB 6 ยังไงยังงั้น.
-------------------------------------------------------------------------------------------
AnimationWindow.dll : Dinamic Link Library SourceCode
library AnimationWindow;
uses Windows, Classes;
function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): bool; stdcall; external 'user32.dll' name 'AnimateWindow';
procedure AnimateWindow_AW_DIAG_SLIDE_IN_BOTTOMLEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262153);
end;
exports AnimateWindow_AW_DIAG_SLIDE_IN_BOTTOMLEFT;
procedure AnimateWindow_AW_DIAG_SLIDE_IN_BOTTOMRIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262154);
end;
exports AnimateWindow_AW_DIAG_SLIDE_IN_BOTTOMRIGHT;
procedure AnimateWindow_AW_DIAG_SLIDE_IN_TOPLEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262149);
end;
exports AnimateWindow_AW_DIAG_SLIDE_IN_TOPLEFT;
procedure AnimateWindow_AW_DIAG_SLIDE_IN_TOPRIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262150);
end;
exports AnimateWindow_AW_DIAG_SLIDE_IN_TOPRIGHT;
procedure AnimateWindow_AW_DIAG_SLIDE_OUT_BOTTOMLEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327686);
end;
exports AnimateWindow_AW_DIAG_SLIDE_OUT_BOTTOMLEFT;
procedure AnimateWindow_AW_DIAG_SLIDE_OUT_BOTTOMRIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327685);
end;
exports AnimateWindow_AW_DIAG_SLIDE_OUT_BOTTOMRIGHT;
procedure AnimateWindow_AW_DIAG_SLIDE_OUT_TOPLEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327690);
end;
exports AnimateWindow_AW_DIAG_SLIDE_OUT_TOPLEFT;
procedure AnimateWindow_AW_DIAG_SLIDE_OUT_TOPRIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327689);
end;
exports AnimateWindow_AW_DIAG_SLIDE_OUT_TOPRIGHT;
procedure AnimateWindow_AW_EXPLODE(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262160);
end;
exports AnimateWindow_AW_EXPLODE;
procedure AnimateWindow_AW_FADE_IN(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 524288);
end;
exports AnimateWindow_AW_FADE_IN;
procedure AnimateWindow_AW_FADE_OUT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 589824);
end;
exports AnimateWindow_AW_FADE_OUT;
procedure AnimateWindow_AW_IMPLODE(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327696);
end;
exports AnimateWindow_AW_IMPLODE;
procedure AnimateWindow_AW_SLIDE_IN_BOTTOM(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262152);
end;
exports AnimateWindow_AW_SLIDE_IN_BOTTOM;
procedure AnimateWindow_AW_SLIDE_IN_LEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262145);
end;
exports AnimateWindow_AW_SLIDE_IN_LEFT;
procedure AnimateWindow_AW_SLIDE_IN_RIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262146);
end;
exports AnimateWindow_AW_SLIDE_IN_RIGHT;
procedure AnimateWindow_AW_SLIDE_IN_TOP(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 262148);
end;
exports AnimateWindow_AW_SLIDE_IN_TOP;
procedure AnimateWindow_AW_SLIDE_OUT_BOTTOM(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327684);
end;
exports AnimateWindow_AW_SLIDE_OUT_BOTTOM;
procedure AnimateWindow_AW_SLIDE_OUT_LEFT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327682);
end;
exports AnimateWindow_AW_SLIDE_OUT_LEFT;
procedure AnimateWindow_AW_SLIDE_OUT_RIGHT(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327681);
end;
exports AnimateWindow_AW_SLIDE_OUT_RIGHT;
procedure AnimateWindow_AW_SLIDE_OUT_TOP(hWnd: HWND); stdcall; export;
begin
AnimateWindow(hWnd, 1000, 327688);
end;
exports AnimateWindow_AW_SLIDE_OUT_TOP;
begin
end.
-----------------------------------------------------------------------------------------------
Example:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure AnimateWindow_AW_FADE_IN(hWnd: HWND); stdcall; external 'AnimationWindow.dll';
procedure AnimateWindow_AW_FADE_OUT(hWnd: HWND); stdcall; external 'AnimationWindow.dll';
procedure AnimateWindow_AW_SLIDE_IN_TOP(hWnd: HWND); stdcall; external 'AnimationWindow.dll';
procedure AnimateWindow_AW_SLIDE_OUT_TOP(hWnd: HWND); stdcall; external 'AnimationWindow.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
AnimateWindow_AW_FADE_IN(Form2.Handle);
If Form2.Visible = False Then
Sleep(1000);
AnimateWindow_AW_FADE_OUT(Form2.Handle);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow_AW_SLIDE_IN_TOP(Form2.Handle);
If Form2.Visible = False Then
Sleep(500);
AnimateWindow_AW_SLIDE_OUT_TOP(Form2.Handle);
end;
end.
แสดงกระทู้ 
