Código Delphi [-] class function TParentForm.ShowWindow(ATag: Integer): TModalResult; begin with Self.Create(nil) do try // Aquí estamos asignando el valor a la propiedad Tag de la forma creada Tag := ATag; Result := ShowModal finally Free end end;
class function TParentForm.ShowWindow(ATag: Integer): TModalResult; begin with Self.Create(nil) do try // Aquí estamos asignando el valor a la propiedad Tag de la forma creada Tag := ATag; Result := ShowModal finally Free end end;