Errore nel chiudere un Form (Delphi7)

Pubblicità

MrCamarium

Utente Attivo
Messaggi
24
Reazioni
1
Punteggio
25
Nel chiedere il Form2 sulla X mi da questo errore:
"Access Violation"
il codice per aprire la Form2 è:
Codice:
procedure TForm1.Button1Click(Sender: TObject);
Var Form2 : TForm2;
begin
 Form2 := TForm2.Create(TForm2);
 Form2.Show;
 end;
Come posso procedere? -Thanks
 
In Form1 ho inserito questo codice:
Codice:
procedure TForm1.Button1Click(Sender: TObject);
var
  Frm: TForm2;
begin
  Frm := TForm2.Create(Self); // "Self" rappresenta qui l'istanza di TForm1
  Frm.Show;
end;
e ho modificato anche il buttonclick del form3 che era in showmodal gli ho dato il tipo di codice descritto sopra.
PS il form3 non da problemi.
 
Trovato l'errore, nel Form2 avevo inserito un codice preso da un mio sorgente appartenente ad un altro programma che stavo sviluppando dimenticando di modificare i dati:
Codice:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Form2.hide;
with TForm2.Create(Self) do
try
     ShowModal;
finally
     Free;
end;
     Application.Terminate;
end;
Adesso va tutto bene, mi sono distratto come al solito.
 
Pubblicità
Pubblicità
Indietro
Top