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;
(程序其他的我就不写了。) 展开
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;
(程序其他的我就不写了。) 展开
4个回答
展开全部
调用API:GetForegroundWindow,得到一个窗口句柄,和待判别的窗体句柄比较......
更多追问追答
追问
win:=FindWindow(nil,PChar('BeforPrintingfrm'));
if GetForegroundWindow=win then
begin
ShowMessage('已经是当前窗口');
tmr1.Enabled:=True;
end
else
begin
tmr1.Enabled:=False;
end;
我之前也是这样做的呀,可是不行呀。
追答
应该可以的,你这段代码是在哪里?能够轮询式地反复执行吗?
要是在一个按钮的点击事件处理中,它只有一次执行机会,当你的窗口不在最前台时,也就得不到执行了。
如果处在一个Timer事件处理过程中,就能轮询执行,在一个单独线程中也可以。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按NO想显示下一条数据的话把Continue换成adoquery.Next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
今天刚好我客户也打电话跟我说这个问题,
只要把form属性的FormStyle设置为fsStayOnTop就好了
只要把form属性的FormStyle设置为fsStayOnTop就好了
追问
这个只是设置窗口一直显示为当前窗口。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询