如何使一个窗体总是得到焦点，禁止其它程序得到焦点。

Question

如何使一个窗体总是得到焦点，禁止其它程序得到焦点。

Answer 1

在该Form上加一个Timer，
procedure TFormShow.OnTimer(Sender: TObject);
begin
  if (FormShow.Showing) then
  begin
    if FormShow.Focused then Exit;
    SetForegroundWindow(Handle);
    FormShow.SetFocus;
  end;
end;

Answer 2

可以使用模式窗口，即ShowModal
也可以用SetFocus设定

Answer 3

最简单的方式是将窗体的显示方式设置为Form1.ShowModal，这样如果该窗体不关闭的
话，它将一直处于击活状态，不允许执行其它操作