如何关闭标题中包含给定字符串的所有表单？

Question

我想关闭标题中包含

ClientID

字符串的所有表单。

procedure CloseFormsWithClientID(const ClientID: string);
var
  I: Integer;
  Form: TForm;
begin
  // check if client ID is not empty
  if ClientID <> '' then
  begin
    for I := Application.Forms.Count - 1 downto 0 do
    begin
      Form := Application.Forms[I];
      // check if form contains ClientID
      if Pos(ClientID, Form.Caption) > 0 then
      begin
        // close forms
        Form.Close;
      end;
    end;
  end;
end;

但是

Application.Forms

是一个未声明的标识符。

我能做什么？

Answer 1

Application

对象没有

Forms

属性。您需要改用

Screen.Forms

属性。