delphi實現(xiàn)延時自動關(guān)閉對話框

1、delphi實現(xiàn)延時自動關(guān)閉對話框*一種自動關(guān)閉對話框的簡單方法使用方法：打開對話框前調(diào)用SetDlgAutoClose參數(shù)1:設(shè)定多長時間后關(guān)閉參數(shù)2:是否在對話框標(biāo)題欄進行倒計時提示取消自動關(guān)閉調(diào)用ResetDlgAutoCloseunit*TimerDlg;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,ExtCtrls;/如果指定的時間沒有操作對話框，則自動關(guān)閉procedureResetDlgAutoClose;procedureSetDlgAutoClose(nTime:

2、Integer;ADoHint:Boolean=False);implementation*如果對話框被打開，貝U在指定時間后關(guān)閉，并在標(biāo)題欄進行提示varnWndCount:Integer=0;SavWnds,SavWnds2:arrayofTHandle;hDlgWnd:THandle=0;hTimerk:Integer=0;nTimerTick:Integer=0;nLastTrk:Integer=0;nDoHint:Integer=0;nCapCt:Integer=0;nSavCapt:String=''fTimer1:TTimer=nil;functionMyEnum

3、Proc(hWnd:THandle;lParam:Integer):Boolean;stdcall;varn:Integer;beginResult:=True;iflParam=0thenbeginifnotIsWindowEnabled(hWnd)thenExit;ifnotIsWindowVisible(hWnd)thenExit;end;n:=(nWndCount+10)div10*10;SetLength(SavWnds,n);SavWndsnWndCount:=hWnd;Inc(nWndCount);end;procedureMyTimerProc(hWnd:THandle;uMs

4、g:Integer;idEvent:Integer;dwTime:Integer);vari,t:Integer;functionFindInArray(ar:arrayofTHandle;hd:THandle):Boolean;vart:Integer;beginResult:=False;fort:=Low(ar)toHigh(ar)dobeginResult:=art=hd;ifResultthenBreak;end;end;beginif(hDlgWnd=0)and(SavWnds=nil)and(SavWnds2nil)thenbeginnWndCount:=0;EnumThread

5、Windows(GetCurrentThreadId,MyEnumProc,0);SetLength(SavWnds,nWndCount);fori:=Low(SavWnds)toHigh(SavWnds)dobeginifnotFindInArray(SavWnds2,SavWndsi)thenbeginifSavWndsi=GetActiveWindowthenbeginhDlgWnd:=SavWndsi;end;end;end;ifhDlgWnd=0thenResetDlgAutoClose;nLastTrk:=GetTickCount;SetLength(nSavCapt,500);t

6、:=GetWindowText(hDlgWnd,PChar(nSavCapt),500);SetLength(nSavCapt,t);nCapCt:=0;endelseif(hDlgWnd0)thenifnotIsWindow(hDlgWnd)ornotIsWindowVisible(hDlgWnd)ornotIsWindowEnabled(hDlgWnd)thenbeginResetDlgAutoClose;Exit;end;t:=GetTickCount;t:=(nTimerTick-(t-nLastTrk)-1);ift0)thenbegint:=(t+1000)div1000;ifnC

7、apCttthenbeginSetWindowText(hDlgWnd,PChar(Format('(%d)%2s%s',t,'',nSavCapt);nCapCt:=t;end;end;end;end;procedureTimerFunc(Sender:TObject);MyTimerProc(0,0,0,0);end;procedureSetDlgAutoClose(nTime:Integer;ADoHint:Boolean=False);varFakeEvt:TNotifyEvent;Ptrs:array1.2ofPointerabsoluteFakeEv

8、t;beginResetDlgAutoClose;nWndCount:=0;EnumThreadWindows(GetCurrentThreadId,MyEnumProc,1);SetLength(SavWnds,nWndCount);SavWnds2:=SavWnds;SavWnds:=nil;ifnotAssigned(fTimer1)thenbeginfTimer1:=TTimer.Create(Application);Ptrs2:=nil;Ptrs1:=TimerFunc;fTimer1.OnTimer:=FakeEvt;fTimer1.Interval:=100;fTimer1.E

9、nabled:=True;end;nLastTrk:=GetTickCount;nDoHint:=Ord(ADoHint);nTimerTick:=nTime;end;procedureResetDlgAutoClose;beginifhDlgWnd0thenbeginSetWindowText(hDlgWnd,PChar(nSavCapt);end;ifAssigned(fTimer1)thenFreeAndNil(fTimer1);nWndCount:=0;hDlgWnd:=0;SavWnds:=nil;SavWnds2:=nil;nTimerTick:=0;end;end.測試proce

10、dureTForm1.Button1Click(Sender:TObject);beginSetDlgAutoClose(15*1000,True);ShowMessage('Thismessageboxwillcloseautomatically,+#13#10+'afterfifteenseconds.');end;procedureTForm1.Button3Click(Sender:TObject);beginSetDlgAutoClose(8000,Sender=Button3);MessageBox(Handle,PChar('這是一個測試?yán)?#39;+#13#10+'此消息框?qū)⒃?秒鐘后自動關(guān)閉'+#13#10+'只需要在調(diào)用消息框和對話框之前調(diào)用一個函數(shù)+#13#10+'就可以方便的實現(xiàn)這種效果'),'定時自動關(guān)閉的消息框',MB_ICONINFORMATIONorMB_OKCANCEL);end;procedureTForm1.Button2Click(Sender:TObject);vardlg:TDlgTest;beginSetD