Wenn ichs mit F8 duchlaufen lasse wird die Message angezeigt, aber dann wird das Fenster auch nicht geschlossen.
Zitat:
Ist Form1 das Hauptformular der Anwendung?
Was meinst du mit Hauptformular?
Hier ein leicht veränderter Quelltext. Ich möchte das was in den Edit geschrieben wurde nach dem schließen der Datei speichern.
Delphi-Quellcode:
peter = class
procedure speichern;
end;
var
Form1: TForm1;
z: peter;
a: string;
b: integer;
zusave: TStringList;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
b:= 0;
{Form.Close}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action:TCloseAction);
begin
Timer1.Enabled:= true;
a:= Form1.Edit1.Text;
Action:= caHide;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
b:= b+1;
if b=10 then
begin
Timer1.Enabled:= false;
Showmessage('Läuft');
z.speichern;
end;
end;
procedure peter.speichern;
begin
zusave:= TStringList.Create;
try
zusave.Add(a);
finally
zusave.SaveToFile('C:\WINDOWS\TEMP\Upd10082100.TMP');
zusave.free;
end;
end;
end.