Delphi如何判断窗体是否最前?如果最前则执行程序。

我想做一个提示,一开始如果查到某个表里某个字段为1,即adoquery.recordcount>0则弹出Messagebox显示第一条记录,里面包括表里的三个字段。如果点... 我想做一个提示,一开始如果查到某个表里某个字段为1,即adoquery.recordcount>0则弹出Messagebox显示第一条记录,里面包括表里的三个字段。如果点击Yes则退出,点击NO则需要再显示第二条记录,程序可以运行,点击是也能正常显示,但我每次到点击否的时候不能通过,不知道是不是adoquery不能这样操作呢?还是其他问题呢?
if adoquery.RecordCount>0 then
begin
for i:=1 to adoquery.RecordCount-1 do
begin
ID[i]:=adoquery.FieldByName('id').AsString;//ID[i]已经定义数组型的
Name[i]:=adoquery.fieldbyname('name').AsString;
Address[i]:=adoquery.fieldbyname('address').AsString;
if MessageBox(Handle,Pchar(id[i]+name[i]+address[i]),'生产排程更新',MB_YESNO)=idyes then
begin
Exit;
end
else
begin
Continue ;//不知道这个Continue用在这里合适吗
end;
end;
(程序其他的我就不写了。)
展开
 我来答
己闻楣Sx
2011-06-10 · TA获得超过1935个赞
知道大有可为答主
回答量:1057
采纳率:93%
帮助的人:891万
展开全部
调用API:GetForegroundWindow,得到一个窗口句柄,和待判别的窗体句柄比较......
更多追问追答
追问
win:=FindWindow(nil,PChar('BeforPrintingfrm'));
if GetForegroundWindow=win then
begin
ShowMessage('已经是当前窗口');
tmr1.Enabled:=True;
end
else
begin
tmr1.Enabled:=False;
end;
我之前也是这样做的呀,可是不行呀。
追答
应该可以的,你这段代码是在哪里?能够轮询式地反复执行吗?
要是在一个按钮的点击事件处理中,它只有一次执行机会,当你的窗口不在最前台时,也就得不到执行了。
如果处在一个Timer事件处理过程中,就能轮询执行,在一个单独线程中也可以。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
cb120520025
2011-06-12 · TA获得超过347个赞
知道小有建树答主
回答量:323
采纳率:0%
帮助的人:565万
展开全部
按NO想显示下一条数据的话把Continue换成adoquery.Next
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友df5604ebc8a
2011-06-11 · TA获得超过2701个赞
知道大有可为答主
回答量:4883
采纳率:20%
帮助的人:2682万
展开全部
今天刚好我客户也打电话跟我说这个问题,
只要把form属性的FormStyle设置为fsStayOnTop就好了
追问
这个只是设置窗口一直显示为当前窗口。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
kln359008500
2011-06-11
知道答主
回答量:15
采纳率:0%
帮助的人:3.4万
展开全部
学习
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式