sooo ich hab das jetzt mal so gelöst:
Delphi-Quellcode:
procedure TInvoiceForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FFormChangeStatus = 1 then
begin
if MessageDlg('You have unsaved changes! Sure to exit?', mtWarning, [mbYes, mbNo], 0)= mrYes then
begin
DM.ClearAllInvoiceFields.Execute;
BtnFormChange.Caption := 'NEW';
LockInvoiceForm(true);
end
else
begin
action := caNone;
end;
end;
end;
nu isses egal ob der das x drückt oder nit. die box reagiert jetzt genauso darauf wie auf das "no" oder "cancel" button
mfg
R.