Kleine Adress-Datenbank

[Sir Rufo]

Der Speicher-Button kommt nicht mehr ... und bei "Wollen Sie die Änderungen speichern?" -> Ja wird trotzdem nicht gespeichert

Delphi-Quellcode:

procedure TDetails.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ret: DWORD;
begin
  if Modified then
  begin
    ret := MessageBox(Self.Handle, PChar(rsModifiedQuery), PChar(rsModifiedCaption), MB_ICONQUESTION or MB_YESNOCANCEL);
    case ret of
      ID_YES: Close;
      ID_NO:
      begin
        Modified := False;
        Close;
      end;
      ID_CANCEL: ;  // nichts machen
    end;
  end;
end;

Ist irgendwie auch sinnentleert oder ... da passiert ja nix ...

ok, ausser bei ID_YES und ID_NO ein DoppelClose (es soll ja eh schon geschlossen werden)
bei ID_CANCEL wird nichts gemacht -> das Form wird geschlossen

Delphi-Quellcode:

type
  TDetails = class(TForm)
    Bevel1: TBevel;
    btnCancel: TButton;  // aber wo ist denn btnSave?
    sgDetails: TStringGrid;
    StatusBar1: TStatusBar;
    memBem: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure memBemChange(Sender: TObject);
    procedure sgDetailsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsNewContact: Boolean;
    Modified: Boolean;  // nicht besser als Property? dann könnte man darüber btnSave.Enabled steuern (gut, den gibts ja nicht mehr)
  end;