如何将表单传递给过程作为参数并操作其属性？

Question

假设我想在我制作的单元中创建一个按名称显示和隐藏表单（作为参数传递）的过程。

我怎么能这样做，什么是语法？

感谢。

编辑

我在寻找类似：弹出窗口（FormMy， '展'）;从我的单位内部。

Answer 1

您可以编写一个程序是这样

procedure ShowMyForm(Form: TForm; Show: Boolean); 
begin 
    if Show then 
    Form.Visible := True 
    else 
    Form.Visible := False; 
end; 

和ShowMyForm(MyForm, True);打电话给你的表格，并确保你的单位uses Forms

正如大卫说，你可以把它

procedure ShowMyForm(Form: TForm; Show: Boolean); 
begin 
    Form.Visible := Show 
end; 

Answer 2

假设形式用父窗体作为所有者创建[.Create（自我），这应该工作：

procedure ShowFormByName(const ParentForm: TForm; const FormName: String; ShowForm: Boolean); 
var 
    i: Integer; 
begin 
    for i := 0 to pred(ParentForm.ComponentCount) do 
    begin 
    if (ParentForm.Components[i] is TForm) and ParentForm.Components[i].Name = FormName) then 
    begin 
     if ShowForm then 
     TForm(ParentForm.Components[i]).Show 
     else 
     TForm(ParentForm.Components[i]).Hide; 

     Break; 
    end; 
    end; 
end; 

Answer 3

就可以在CustomForms财产环路（也有他们的CustomFormCount）全局Screen对象。这只需枚举应用程序中所有可能是您想要的VCL表单。

如果你正在寻找的代码会是这样的：

for i := 0 to Screen.CustomFormCount-1 do begin 
    Form := Screen.CustomForms[i]; 
    if Form.Name=TargetName then begin 
    DoSomething(Form); 
    break; 
    end; 
end; 

Answer 4

function GetFormByName(const FormName: string): TForm; 
var 
    i : Integer; 
begin 
    Result := nil; 
    for i := 0 to Screen.FormCount - 1 do 
    begin 
    if SameText(Screen.Forms[i].Name,FormName) then 
    begin 
     Result := Screen.Forms[i]; 
     Break; 
    end; 
    end; 
end;