Comment je peux Détruire (gratuit) un Formulaire à partir de la mémoire?

j'ai 2 Formulaire (Form1 et Form2) dans mon projet, Form1 est Auto-créer des formulaires, mais Form2 est Disponible formes.
comment je peux créer Form2 et décharger Form1?

J'ai reçu un "Accès de validation" Erreur dans ce code.

Ici est de code de Form1:

1.  uses Unit2;
//*********
2.  procedure TForm1.FormCreate(Sender: TObject);
3.  var a:TForm2;
4.  begin
5.      a := TForm2.Create(self);
6.      a.Show;
7.      self.free;  // Or self.destory;
8.  end;

Grâce.

J'ai modifié que "Serg" code à ceci :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  Release;
end;

end.

///

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Form1:= TForm1.Create(Application);
  Application.Run;
end.

mais ce début du projet, puis quittez automatiquement, Pourquoi?
je veux montrer à Form1 et quand nous cliquez sur Button1 de montrer ensuite Form2 et gratuit(la presse) à Form1. comment je peux à présent?

InformationsquelleAutor User | 2011-01-07
  1. 12

    Lorsque vous détruisez un formulaire, il est préférable d'utiliser de la Libération.

    Version est presque la même que libre, mais il attend pour les messages en attente pour éviter les plantages.

    Vous ne devriez jamais utiliser le Détruire. Gratuit/Release appelle le destructeur.

    De soi est l'objet courant (dans votre code de Form1, donc de soi.Gratuit tue la forme actuelle. Ce qui provoque la violation d'accès. Form1 est automatiquement créé, il est également l'auto détruit, vous ne pouvez pas détruire vous-même. Si vous ne voulez pas, les cacher.

    Et vous devez conserver une référence à la nouvelle forme, si vous souhaitez traiter plus tard.

    Modifié votre code devrait ressembler à:

    uses Unit2;

TForm1 = class (TForm)
private
  FChild : TForm2;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FChild := TForm2.Create(nil);
  Hide; // Hides form 1
  FChild.Show;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FChild.Release;
end;

    Mais Pourquoi voulez-vous créer un autre formulaire dans le formulaire de créer de la première forme. Pourquoi ne pas supprimer la première forme entièrement et uniquement utiliser la seconde (auto créé)?

    • Merci Gamecat. Dans mon projet, j'ai de nombreuses formes.form1 est une forme de jeu de certains de configuration lors de mon démarrage de l'application.Je veux montrer à form1 et lorsque l'utilisateur de définir cette configuration, puis décharger la form1 et de montrer form2. vous avez une meilleure idée?
    • lorsque j'utilise votre code modifié,Form1 visible pendant environ 1 seconde, puis se cacher. pourquoi? (je veux invisible form1 complètement)
    • qui va vous mordre plus tard. La première auto-créé forme est désigné le formulaire principal, et lorsque le formulaire principal est détruit, l'application se termine, même si il existe d'autres formes encore. Faire ceci à la place: Dans votre RMR de fichier, de créer et d'afficher le formulaire de config avec Form1 := TForm1.Create(nil); Form1.ShowModal; Form1.Free; Après cela, laissez Form2 être auto-créé avec l'habitude Application.CreateForm(Form2, TForm2). Pour une réponse plus détaillée, poser une nouvelle question, telles que "Comment puis-je afficher un formulaire de configuration avant de la principale forme?"
    • N'utiliser que la Version à la place de Free m'a causé une migraine. Ne savais pas que cela tous les élément important des conseils.
    InformationsquelleAutor Toon Krijthe
  2. 2

    Que vous essayez de faire quelque chose d'étrange.

    Vous ne pouvez pas libre formulaire principal, sans fermer l'application, de sorte que votre Form1 ne doit pas être autocreated formulaire Form1 et Form2 doit être créé manuellement.

    D'abord, vous devez éditer le source de votre projet de ce genre pour créer Form1 manuellement:

    program Project9;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Form1:= TForm1.Create(Application);
  Application.Run;
end.

    Form1.OnCreate devrait être écrit comme

    procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  Release;
end;

    qui fera Form2 la forme principale de votre application. Comme déjà répondu, vous devriez utiliser la méthode de Version gratuit le formulaire.

    • Merci pour la réponse.si je veux ajouter un bouton à Form1 et le type d'Application.CreateForm(TForm2, Form2); Libération; en elle, je doit modifié le code pour ???? (si j'ai mis ce code dans le bouton de démarrage de l'application, puis la sortie)
    • si vous avez plus de questions, veuillez vous adressez à eux de nouvelles questions, avec la description détaillée et le code, pas de commentaires. Il est difficile de comprendre et de répondre aux questions dans les commentaires.
    InformationsquelleAutor kludg
  3. 0

    Si Form1 est "autocreate", il en est le propriétaire de l'objet application - vous ne devriez pas gratuit, il est dans votre code. Si Form1 possède Form2, l'application nettoie à la fois.

    Je le ferais comme ça, mais pas sûr qu'il réponde à vos exigences:

    procedure TForm1.FormCreate(Sender: TObject);
var a:TForm2;
begin
  a := TForm2.Create(nil);
  try
    a.Show;
 finally
   freeandNil(a);
 end; 
end;
    • Le formulaire sera affiché, puis immédiatement détruits, ce qui ne laisse pas de temps pour l'interaction
    • Ne pourrait-il pas être Libre de ne pas FreeAndNil?
    • ? Pourquoi est-ce - rien de mal avec freeAndNil;
    • Bien sûr mjn est correct. Si vous êtes à montrer la non-modale alors de libérer immédiatement sera assez inutile. Dans ce cas, vous devez décider ce que vous voulez faire avec votre formulaire dans la TForm.Événement OnClose: TForm1.FormClose(Sender: TObject; var Action: TCloseAction); TCloseAction est une énumération avec les 4 membres: (caNone, caHide, caFree, caMinimize); de Définir la variable d'Action qui est passé dans le cas du comportement dont vous avez besoin.
    • Mon erreur, je n'ai jamais vu une raison d'utiliser FreeAndNil, toujours .Gratuit;
    • Vrai - dans de nombreux contextes, il n'est pas vraiment nécessaire - un bon code doit jamais vraiment de l'utiliser. Je le fais juste par habitude et parce que je suis naturellement paranoïaque LOL. Même si l'on peut dire, que c'est en utilisant des cycles de processeur, je doute sérieusement que si, dans nos modernes evnironments qui a aucune importance.

    InformationsquelleAutor Vector
  4. 0
    begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

    ...

    procedure TForm1.FormClose(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg ('Are you want to exit?', mtConfirmation,
      [mbYes, mbNo], 0) = mrNo then
    CanClose := False;
end;

    Donc, c'est tout...

    InformationsquelleAutor tbutton
  5. 0

    Si tous les Form1 devez faire est d'initialiser quelque chose, mais ne s'affichent pas, envisagez d'utiliser un datamodule à la place. On ne peut pas être indiqué, mais peut encore être autocreated.

    InformationsquelleAutor dummzeuch