Dbgridte Escile Kayıt iptal olayı?

[hedefbusiness]

Herkese ii calısmalar

Dbgrid icerisinde Kayıt üzerinde degisiklik yaparken Esc tusuna
basıldıgında (Dischard Changes ? ) Mesajının ÇIKMAMASINI ve Esc tusunun bu CANCEL
gorevini iptal etme işlemini nasıl halledeblilriz?

[Ali Erdoğan]

Dbgrid in keypress olayına:

Kod: Tümünü seç

if key = VK_ESC then //Esc nin tuş kodundan emin değilim.
   begin
      table1.cancel;
   end;

[Master43]

Yanlış anlamadıysam Esc tuşuna basıldığında onay almadan kaydı iptal etmek istemiyorsun, Bunun için aşağıdaki kodu kullanabilirsin

Kod: Tümünü seç

procedure TfTable.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 27 then
    if MessageBox(Handle, 'Discart changes?', 'Onay', MB_YESNO) = idNo then
      SysUtils.Abort
    else
      Table1.Cancel;
end;

[/code]