DbGrid Asagi yon tusu

[mrtblt]

DbGrid'te (dataset.autoedit = false) en alttaki satirin uzerindeyken asagi yon tusuna bastigimda tablo insert moduna geciyor. Bunu nasil engelleyebilirim?

[Lost Soul]

şimdi delphi açık değil ama datasource da autoedit false yaparsan otomatik insert yapmaz sanırım.

[mrtblt]

Sevgili KayipRuh

Autoedit'in zaten false oldugunu yazmistim...

[conari]

ilginç ama DBGridin keypressini kontrol et key= aşağıok ise keyi yoket.

[Lost Soul]

Sevgili KayipRuh

Autoedit'in zaten false oldugunu yazmistim...

Kod: Tümünü seç

procedure TForm1.dxMemData1BeforeInsert(DataSet: TDataSet);
begin
if activecontrol =dbgrid1 then
    abort;

end;

buton click ile insert yapıldığında bu kod gayet güzel çalışacaktır.

eğer form key preview & onkeypress ile insert yapacaksanız

yukarıda kodun inserti engellemesini engellemek için
dataset.insert demeden önce dbgridden başka bir nesneyi focus ediniz.
işlemden sonra tekrar konolü dgride verin böylece kullancı da uyuz olmaz.

Kod: Tümünü seç

  if key=vk_f1  then
  begin
    if activecontrol=dbgrid1 then
    Begin
      button1.SetFocus;
      dxmemdata1.Insert;
      dbgrid1.SetFocus;
    End
    else
      dxmemdata1.Insert;
  end;

son olarak konuyu programlama kısmında açmalıydınız.

[conari]

dbgrid Options dbediting de false yapabilirsiniz.

[White Rose]

dbgridin keydown eventine
if (key=vk_down) and (Dataset.Recno=Dataset.Recordcount) then Begin
Key:=0;
End;