دوست عزیز این که دیگه تاپیک زدن نمی خواست .تمامی راههایی که دوستان گفتن درست ، اما حتی اگه در مورد اونها هم اطلاعاتی نداشتی خودت می تونستی این کار رو انجام بدی ، یه متغیر عمومی تعریف کن با نام Letpost :
var
Form1: TForm1;
LetPost:Boolean;
و به اون مقدار پیش فرض False بده :
procedure TForm1.FormCreate(Sender: TObject);
begin
LetPost:=false;
end;
حالا در رویداد BeforPost این کد رو بنویس:
If LetPost=False Then
AdoTable1.Cancel;
حالا فرضا یه دکمه داری که با کلیک بر اون میخای تغییرات ذخیره بشه:
procedure TForm1.Button1Click(Sender: TObject);
begin
LetPost:=true;
AdoTable1.post;
LetPost:=false;
end;