procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
bModified: boolean;
i1: integer;
begin
bModified:= false;
for i1:= 0 to ComponentCount- 1 do begin
if Components[i1] is TDBEdit then begin
if (Components[i1] as TDBEdit).Modified then begin
bModified:= true;
break;
end;
end;
end;
if bModified then begin
case MessageBox(Handle, pchar('Sie haben Änderungen an den Daten vorgenommen.'#13'Möchten Sie diese speichern?'), pchar('Änderungen speichern?'), MB_ICONQUESTION or MB_YESNOCANCEL) of
IDYES: begin
// irgendwas .Commit (Änderungen übernehmen)
Table1.CommitUpdates;
end;
IDNO: begin
// irgendwas .Rollback oder .Cancel (Änderungen verwerfen)
Table1.CancelUpdates;
end;
IDCANCEL: CanClose:= false;
end;
end;
end;
Buttons werden auf Webseite als X dargestellt
tiro1957 16.05.2007 - 92 Hits - 2 Antworten
Neue Buttons für Delphi 6?
hamamotto 27.09.2007 - 40 Hits - 1 Antwort
Systemwiederherstellung rückgängig machen
guency 11.03.2008 - 14 Hits - 2 Antworten
Compiler programmieren in Delphi
tobsa 10.05.2008 - 115 Hits - 1 Antwort
lokales serverprogramm in delphi
hastalavista 23.06.2008 - 68 Hits - 2 Antworten