Showmodal

Question

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.

japee · Answer

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

japee · Answer

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

Showmodal

2 réponses

Votre réponse

Discussions similaires