procedure TForm1.Timer1Timer(Sender: TObject);
begin
TTimer(Sender).Enabled := False;
Caption := Format('%.6f, %d', [Now, GetActiveWindow]);
MessageBox(GetActiveWindow, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);
// MessageBox(Handle, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);//建议用
TTimer(Sender).Enabled := True;
end;
begin
TTimer(Sender).Enabled := False;
Caption := Format('%.6f, %d', [Now, GetActiveWindow]);
MessageBox(GetActiveWindow, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);
// MessageBox(Handle, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);//建议用
TTimer(Sender).Enabled := True;
end;
解决方案 »
- 关于advstringgrid显示数据的问题
- Remobjects SDK DA HA的问题
- Application的onactionexecute在什么时候会被触发!!!
- adotable clone数据后,在相应的表里面数据却没有发生变化,什么原因啊?
- 有没有一个函数:将一个字符串中的字符分开保存到一个字符串数组里。 今晚揭帖
- 01cn精华贴第二期
- 如何将一个字符串的内容作为一段代码来执行
- 如何在Delphi7环境下使用命令行调试程序?
- 我手上有个C/S结构的程序需要开发,Delphi+DB2,请兴趣者请和我联系
- google这么强大的搜索引擎被封??为什么??
- 第二次加分!!
- 问DBedit中的值,我怎么能得到阿!它没有VALUE吗?
谢谢你,但我的意思你肯定搞错了,我是问为什么用getactivewindows(),是为了得到一个活动窗体吗?
zswang(伴水)(被黑中) 你的代码是什么意思?请指教