Question

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

我想做一个提示，一开始如果查到某个表里某个字段为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;
(程序其他的我就不写了。)

Answer 1

调用API：GetForegroundWindow，得到一个窗口句柄，和待判别的窗体句柄比较......

追问

win:=FindWindow(nil,PChar('BeforPrintingfrm'));
if GetForegroundWindow=win then
begin
ShowMessage('已经是当前窗口');
tmr1.Enabled:=True;
end
else
begin
tmr1.Enabled:=False;
end;
我之前也是这样做的呀，可是不行呀。

追答

应该可以的，你这段代码是在哪里？能够轮询式地反复执行吗？
要是在一个按钮的点击事件处理中，它只有一次执行机会，当你的窗口不在最前台时，也就得不到执行了。
如果处在一个Timer事件处理过程中，就能轮询执行，在一个单独线程中也可以。

追问

是可以反复执行的，就算我那个窗口不是当前窗口，但Timer事件还是可以执行。唉，放弃了这种方法了。。。暂时不想了。转方法

Answer 2

按NO想显示下一条数据的话把Continue换成adoquery.Next

Answer 3

今天刚好我客户也打电话跟我说这个问题，
只要把form属性的FormStyle设置为fsStayOnTop就好了

追问

这个只是设置窗口一直显示为当前窗口。

Answer 4

学习