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
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
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
