Anzeige der Nebenform vor der Hauptform

**Avax2k**

Hallo, habe abermals ein Problem und weiss nicht mehr weiter...

Ich verwende folgenden Code um ein Fenster vor der MainForm einzublenden..das funktioniert auch tadellos... nur wenn ich bei dem eingeblendeten Fenster den Befehl Free verwende bekomme ich immer eine Fehlermeldung, dann geht das Programm aber weiter. Lasse ich free weg bleibt das Fenster immer im Vordergrund aber im Hintergrund wird die Hauptform gestartet..

hier der Code

markieren

Delphi-Quellcode:

			Form2 := TForm2.Create(Application);

Form2.Edit1.Text := 'Hallo';

ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'test.ini');

Form2.Edit2.Text := Ini.ReadString('Text', 'Test','');

Form2.Button1Click(Form2.Button1);

....

...

...

Form2.ShowModal;

end;

und hier der Befehl in der Form2

markieren

Delphi-Quellcode:

			var ini : TIniFile;

begin

ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'test.ini');

if Edit2.Text = 'hallo' then

begin

ini.WriteString('Text', 'Test', Edit2.Text);

Form2.Free;   // <---- hier kommt der Fehler her, denn lasse ich es weg funktioniert es aber Fenster bleibt bestehen :(

end else

Label1.Caption := 'Fehler';

end;

hoffe jemand kann mir weiterhelfen damit der fehler nicht mehr kommt.

SORRY das WAR ein FEHLER beim Tippen mit der 7 ist im Code schon eine 2

Anzeige der Nebenform vor der Hauptform

Anzeige der Nebenform vor der Hauptform

Forumregeln