对话框延时自动关闭
摘要：
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; 阅读全文
posted @ 2019-12-23 13:59 USEGEAR 阅读(287) 评论(0) 推荐(0) 编辑