Fehler beim laden des Models (Opendialog)

Moin,
ich hab 2 Formulare die ich auch mit Programmstart anzeigen lasse...
Beim ersten Formular Initialisiere ich Opengl auf dem zweiten
habe ich einen Opendialog und einen Button.
Wenn man auf den Button klickt öffnet sich der Opendialog und man sucht sich
z.B. Ball2.3ds aus so sieht der Code aus

markieren

Delphi-Quellcode:

			procedure TForm2.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute then

begin

Filename := Opendialog1.FileName;

Form1.Load;

end;

end;

Und die Load Procedure:

markieren

Delphi-Quellcode:

			procedure TForm1.Load;

begin

model:=TAll3DSMesh.Create(nil);

model.LoadFromFile('Form2.Filename');

Form1.Modelladen := true;

end;

Die Variable Filename ist eine Globale Variable!

Nun starte ich und...
Tja Fehler:' Objekt konnte nicht geladen werden'!

Wenn ich nun aber Opendialog weglasse funktioniert es...
In etwa so...

markieren

Delphi-Quellcode:

			procedure TForm2.Button1Click(Sender: TObject);

begin

Filename := 'Modelle\Ball2.3ds';

Form1.Load;

end;

Aber ich möchte ja aussuchen können welches Objekt ich lade!?
Kann mir jemand erklären wie ich das machen kann? (Ich hoffe ich hab es richtig Formuliert...

)

Fehler beim laden des Models (Opendialog)

Fehler beim laden des Models (Opendialog)

Forumregeln