Showmodal

Signaler
Messages postés
5
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
25 octobre 2003
-
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
-
J'ai ce code:

Application.CreateForm(TForm2, Form2);
Form1.Visible:= False;
Form2.ShowModal;

mais quand je l'execute il m'indique EInvalidoperation (ne peut pas afficher la fenetre modal) et en passant ma souris sur le code il indique showModal = valeur inaccessible.

2 réponses

Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
Si j'ai bien saisi ton problème, essaie ceci :

var Form2: TForm; // déclaration de la variable de type TForm

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Form2 := TForm.Create(Form1);
    with Form2 do
    begin
      WindowState := wsMaximized; // par exemple...
    end;
    Form1.Visible := False;
    Form2.ShowModal;
  except  // en cas de problème...
    Form2.Free;
  end;
  Form1.Visible := True; // hé hé, ne pas oublier ;-)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Free;  // on libère Form2
end;


Bonne prog' à tous ! :-p
Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
Sinon aussi :

Form2 := TForm.Create(Self); 
:shy)