Plantage

Je solicite votre ade car en fait j'ai un gros plantage avec un programme que je suis en train de faire et pourtant il est pas encore avancé une fois sur deux presque j'ai une erreur d'ecriture mémoire quand je ferme le programme j'ai éssayé de chercheen rajoutant des trucs ( que j'ai laissé ) je vous mes mes deux première fiche si vous avez une idée


MAIN.pas:

unit emplacement;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ComCtrls, inifiles, ShellCtrls;

type
TForm2 = class(TForm)
ShellTreeView1: TShellTreeView;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

end;

var
Form2: TForm2;

implementation

uses main;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form1.Visible:=true;
form2.Visible:=false;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.emplacementdes:=ShellTreeView1.Path;
form1.FileListBox1.Directory:=Form1.emplacementdes;
form2.close;
form1.Visible:=true;





end;

end.


Emplcement.pas:



unit emplacement;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ComCtrls, inifiles, ShellCtrls;

type
TForm2 = class(TForm)
ShellTreeView1: TShellTreeView;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

end;

var
Form2: TForm2;

implementation

uses main;

{$R *.dfm}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form1.Visible:=true;
form2.Visible:=false;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.emplacementdes:=ShellTreeView1.Path;
form1.FileListBox1.Directory:=Form1.emplacementdes;
form2.close;
form1.Visible:=true;





end;

end.


En vous remerciant d'avance


R A P A K O O T I

Essaie plutôt avec les fonctions :

form1.Show

et

form1.Hide

Merci de ta réponse je viens de testé ça change rien
désolé
R A P A K O O T I

Ferme ton application en utilisant
ExitProcess(0);
et utilise .show et .hide au lieu de visible ( form1.show; ).
Et c'est quoi ça: Form1.emplacementdes;
?

--==[Kruger]==--