Código Delphi [-] class function TParentForm.ShowWindow(ATag : Integer; var Reference) : TModalResult; var AForm : TForm; begin AForm := Create(Application); Reference := AForm; // Esto había quedado en el tintero AForm.Tag := ATag; Try Result := AForm.ShowModal; finally Free; end; end;
class function TParentForm.ShowWindow(ATag : Integer; var Reference) : TModalResult; var AForm : TForm; begin AForm := Create(Application); Reference := AForm; // Esto había quedado en el tintero AForm.Tag := ATag; Try Result := AForm.ShowModal; finally Free; end; end;