Comment puis-je passer un formulaire à une procédure en tant que paramètre et manipuler ses propriétés?

Question

Supposons que je souhaite créer une procédure dans une unité que j'ai créée pour afficher et masquer les formulaires par leur nom (transmis en tant que paramètre).

Comment pourrais-je faire cela et quelle est la syntaxe?

Merci.

EDIT

Je cherche quelque chose comme: Popup (FormMy, 'Show'); de l'intérieur de mon unité.

Answer 1

Vous pouvez écrire une procédure comme celui-ci

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

et appelez votre formulaire par ShowMyForm(MyForm, True); et assurez-vous que votre appareil Comme David a dit que vous pouvez le faire

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

Answer 2

En supposant que les formulaires ont été créés avec le formulaire parent en tant que propriétaire [.Create (Self)], cela devrait fonctionner:

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

Vous pouvez boucle autour de la propriété CustomForms (il y a CustomFormCount d'entre eux) de l'objet Screen global. Cela énumère simplement tous les formulaires VCL dans l'application qui peuvent être ce que vous voulez.

Si vous êtes à la recherche pour le code que ce serait quelque chose comme ceci:

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;