如何使一个窗体总是得到焦点,禁止其它程序得到焦点。
showModle;
bringToFront;
Form.ShowModal;
在该Form上加一个Timer,
procedure TFormShow.OnTimer(Sender: TObject);
begin
if (FormShow.Showing) then
begin
if FormShow.Focused then Exit;
SetForegroundWindow(Handle);
FormShow.SetFocus;
end;
end;
可以使用模式窗口,即ShowModal
也可以用SetFocus设定
最简单的方式是将窗体的显示方式设置为Form1.ShowModal,这样如果该窗体不关闭的
话,它将一直处于击活状态,不允许执行其它操作
把这个窗体设置为模态窗体就可以了。