Discussion :

[medkyl]

Bonjour,

Dans ma form1 , je cré une autre form2, ensuite form3 impossible d'accéder à la form 2 il me dit violation d'accès.
En espérant avoir été compréhensible.

Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure Tform1.btnOkClick(Sender: TObject);
begin
  with Tform2.Create(Self) do
  try
    ShowModal;
  finally
     Release;
  end;
end;

dans la form 2 je cré une autre form 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure Tform2.btnOkClick(Sender: TObject);
begin
  with Tform3.Create(Self) do
  try
    ShowModal;
  finally
     Release;
  end;
end;

Dans ma form3 je ne peux pas acceder à la form2 message
violation d'accès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure Tform3.btnOkClick(Sender: TObject);
begin
   form2.Edit1.Text:= 'Bonjour';
end;

Je l'a cherche je l'a trouve pas alors quelle a bien été créée visuelle à l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure Tform3.btn1OkClick(Sender: TObject);
begin
  If Application.FindComponent('form2') <> Nil  Then
  ShowMessage('La form existe');
  else
  ShowMessage('La form n''existe pas');
  end;
end;

[Invité1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure Tform1.btnOkClick(Sender: TObject);
begin
  with Tform2.Create(Self) do
  try
    ShowModal;
  finally
     Release;
  end;
end;

tes Form2 et Form3 sont crées dynamiquement??????????????,
si, non ça serait plus simple de faire , non????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
procedure Tform1.btnOkClick(Sender: TObject);
begin
 
form2.ShowModal;
 
end;

[Andnotor]

Tes variables ne sont pas assignées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Form2 := TForm2.Create(Self);
 
with Form2 do
...

[zemeilleurofgreg]

et oui, l'assignation est obligatoire.
Tu appelles un objet qui n'a pas été "créé" !

[medkyl]

merci a vous tous .
C'est mieux comme ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure Tform2.btnOkClick(Sender: TObject);
begin
 form3:= Tform3.Create(Self);
  with form3 do
  try
    ShowModal;
  finally
     Release;
  end;
end;