Hallo,
ich vermisse die Ereignisbehandlungsroutine für
Beenden1Click die in der
Unit 2 deklariert ist.
Abgesehen davon:
Zitat von
Lannes:
Hallo,
das hängt damit zusammen welches Element der Form2 den Focus hat, wenn die Form2 geschlossen wird.
In OnClose der Form2 folgendes einfügen:
Edit1.SetFocus;
Eine Ereignisbehandlungsroutine zu OnClose sehe ich auch nicht.
Setz mal
Edit1.SetFocus vor Close in die vorhandene Routine.
Delphi-Quellcode:
//...
speichergeschlecht.SaveToFile('Geschlecht/'+Edit1.Text+'.Geschlecht.txt');
end;
begin
Edit1.SetFocus;//<-----------!!!!
Form2.Close;
end;
end;
//...
Ps.: vergess nicht Deine Stringlisten wieder freizugeben!