procedure TfrmRKD_SMP_THREE.tmr1Timer(Sender: TObject); var Hwnd: THandle; begin Hwnd := FindWindow(nil, '提示'); if Hwnd <> 0 then SendMessage(Hwnd, WM_CLOSE, 0, 0); tmr1.Enabled:=False; end;
对话框延时自动关闭
猜你喜欢
转载自www.cnblogs.com/usegear/p/12083397.html
今日推荐
周排行