Hi,
ich habe folgendes Problem: ich möchte das bei OnClose meines Fensters eine Überprüfung machen ob das Fenster wirklich geschlossen werden sollte, nur klappt das nicht ganz.. Ich muss dazu sagen ich möchte das wenn der Benutzer, ja wählt, das eine kleine .txt Datei erstellt werden soll. Bis jetzt sieht das ganze so aus:
Delphi-Quellcode:
procedure TFrmHaupt.FormClose(Sender: TObject; var Action: TCloseAction);
var
sl : TStringList;
s, d, z: String; mr: Integer; CanClose: Boolean;
begin
mr := MessageDlg('Wirklich schließen???',mtConfirmation,[mbYes,mbNo],0);
if mr = mrYes {mrNo} then begin
if LblGesammt.Caption = '0' then begin
MessageDlg('Es konnte kein Gesammt Protokoll angelegt werden, da keine Waffeln gebucht worden sind.', mtWarning, [mbOK], 0);
CanClose := true;
end else begin
d := DateToStr(date);
z := System.SysUtils.FormatDateTime('"Gesammt Protokoll " hh-nn-ss dd, mm, yyyy' , (Now));
s := (LblGesammt.Caption);
sl:=TStringList.Create;
try
sl.Add('Es wurden '+s+' Waffeln produziert und verkauft.');
sl.SaveToFile('c:\ProgramData\Crepesworker\Protokoll '+d+'\'+z+'.txt');
finally
sl.Free;
end;
end;
CanClose := true;
end else
CanClose := false;
end;
Das ganze dient eher nur zum 'spielen und experimentieren' als das es wirklich in gebrauch genommen wird
Danke
Gruß
Luki
