Problème Show ModalRésolu

Question

Bonjour, 

Lorsque j'essaye d'acceder a un formulaire &#224; partir d'une fenetre modale j'obtiens le message d'erreur suivant : Violation d'acc&#232;s &#224; l'adresse.

En fait j'ai mon FrmMain dans lequel il y a une fenetre fille FrmDossiers et &#224; partir d'un bouton de FrmDossiers j'ouvre avec un showmodal le FrmRecherche.

Et dans un DbGrid de FrmRecherche je cherche &#224; remplir des controles de FrmDossiers ce qui me provoque l'erreur evoqu&#233;e.

Lorsque j'effectue le pas &#224; pas la valeur de FrmDossiers est egale &#224; nil.

Pouvez-vous m'aider SVP ????

walid2876 · Accepted Answer

TFrmDossiers.createParented(FrmMain.Handle);
Createparented cree un nouveau contr&#244;le dans une fen&#234;tre parent non-VCL.
donc ta form n'est pas cr&#233;e avec Createparented est &#231;a provoque une violation ...
 donc ecris :
With TFrmDossiers.create(application) Do
Begin
   showmodal;
   Free;
End;

cs_Delphiprog · Answer

Quel est le code employ&#233; quand tu appelles FrmDossiers ?
Tes fiches sont-elles auto cr&#233;&#233;es par d&#233;faut ?


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

trezeled · Answer

J'appelle FrmDossiers de la facon suivante : 
Dans FrmMain, a partir d'un popup je lance :
if UpperCase(strPopup) = 'FRMDOSSIERS' then TFrmDossiers.Execute();

Puis dans la procedure execute de FrmDossiers, je lance
TFrmDossiers.createParented(FrmMain.Handle);

Et non FRmDossiers n'est aps cr&#233;&#233;s par d&#233;faut

cs_deubal · Answer

bonjour,
je rencontre un probleme pratiquement identique au tiens : du moins le message est identique mais la maniere de faire est differente :
- ma form appell&#233;e (form2) n'est pas creer par defaut- sur la form1 il y a un bouton et quand on clique dessus:
    " form2 := Tform2.Create(Self);
    form2.ShowModal;
    form2.Free;" 
- sur la form2 il y a un bouton avec le code
   " close;"
et l&#224; d&#232;s que je clique ca me met le message d'erreur "Violation d'acc&#232;s &#224; l'adresse."
Pourquoi ?? je n'en sais rien
je me disais que si quelqu'un t'aidait , plutot que de poster un message sur le forum et que notre probleme a l'air identique, autant regrouper et peut-etre avoir une reponse commune ...
En vous remerciant par avance
bonne journee

Cirec · Answer

Salut,
essayez comme &#231;a : 

procedure TForm1.btn_1Click(Sender: TObject);
begin
 Application.CreateForm(TForm2, Form2);
 Form2.showmodal;
 Form2.Free;
end;

@+
Cirec

trezeled · Answer

Ca ne fonctionne pas pour moi,  j'ai deja essay&#233; mais ca pose toujours le meme probleme

Cirec · Answer

Alors dans ce cas il faut donner plus de d&#233;tails sur ton code.
Parce que j'ai fait le teste et le code que je te propose fonctionne tr&#232;s bien.

Donne d&#233;j&#224; la proc&#233;dure Execute et la proc&#233;dure ou l'erreur se d&#233;clanche.

@+
Cirec

trezeled · Answer

Dans la procedure Execute j'effectue juste la ligne deja indiqu&#233;e :
  TFrmDossiers.createParented(FrmMain.Handle);

Et l'erreur se declenche lorsque dans FrmRecherche (fenetre ouverte par un showmodal lors d'un clic sur un bouton dans FrmDossiers) je veux remplir un controle du type FrmDossiers.EdtNom.

Mais en fait le probleme vient du fait que FrmDossiers est une fenetre fille, dans FrmREcherche j'ai acces a FrmMain mais pas a FrmDossiers

Cirec · Answer

bon j'ai refait les testes :

Form1 qui cr&#233;e Form2 (avec un TEdit) qui cr&#233;e Form3 qui remplie l'edit de Form2
le tout (Form2 et Form3) en ShowModal
J'ai fait les testes de diff&#233;rentes mani&#232;res et &#231;a fonctionne toujours
donc si tu ne donne pas plus d'informations on ne pourra pas t'aider.

@+
Cirec

trezeled · Answer

Form2 ne doit pas etre cr&#233;&#233; avec un showmodal mais Form2

Cirec · Answer

c'est pareil je l'ai fait dans tous les sens
le probl&#232;me viens d'ailleurs

@+
Cirec

walid2876 · Answer

Et Pour l'exemple de form1 et form2 &#231;a fonctionne correctement 
je vois pas ou est l'erreur ,l'erreur vienne d'ailleurs !!!!!!!!!!!!!
et n'est pas pareil au exemple de trezeled

trezeled · Answer

OK Merci, c'etait bien le create parented qui me posait souci.

Cirec · Answer

c'est ce que j'ai dit depuis le d&#233;but mais manifestement tu as dis non sans m&#234;me tester

griffon07 · Answer

Je crois que j'ai le même problème ! moi je suis dans un "procedure TForm1.Button1Click(Sender: TObject);"
mon form2 est un  "AboutBox" inventé donc :

begin 
Application.CreateForm(TAboutBox, AboutBox); <<<<  la compilation s'arrete ici
 AboutBox.showmodal;
 AboutBox.Free;
end;

il parle : d'indentificateur non déclaré : 'AboutBox'
dans ce cas là où peut on l'identifié?? 
Aboutbox (=form2) est bien dans le répertoire du projet !

Problème Show Modal

15 réponses

Votre réponse

Discussions similaires