DBNavigator nbEdit butonunu taklit etmek,

[Salih]

Merhaba,

Formda Dbnavigator1 ve BTNKayıt var,
DBnavigator de edit butonu enable/disable olduğu anda BTNKayıt da enable/disable olsun istiyorum.

dbgrid çift tıklanınca, navigatorde edit e basınca, post a basınca vs vs biçiminde ilgili eventlerde gerekli satırları yazarak istediğimi yapıyorum. Ama epeyce uzun sürüyor. Aynı işi cancel, delete vs için de yapmaya kalkarsak....

Acaba, bunun daha kısa bir yolu var mı ? DBnavigator un edit tuşu enable ise sen de enable ol diyebilir miyim ? Bu mümkünse, hangi bölümde ve nasıl yapabiliriz ?

[aslangeri]

S.A.
datasource nin on statechange olayını kullanabilirsin.
Kolay gelsin.

[gkimirti]

Kod: Tümünü seç

procedure TFrmBaseDbEditor.DataSourceStateChange(Sender: TObject);
begin
  case DataSource.State of
    dsBrowse:
      begin
        bbtCancel.Enabled := False;
        bbtSave.Enabled := False;
        bbtDel.Enabled := True;
        bbtRefresh.Enabled := True;
        bbtEdit.Enabled := True;
        bbtInsert.Enabled := True;
      end;
    dsInsert,
      dsEdit:
      begin
        bbtCancel.Enabled := True;
        bbtSave.Enabled := True;
        bbtDel.Enabled := False;
        bbtRefresh.Enabled := False;
        bbtEdit.Enabled := False;
        bbtInsert.Enabled := False;
      end;
  end;

  if DataSource.DataSet.RecordCount = 0 then
    bbtDel.Enabled := False;
end;

[Salih]

Teşekkürler, böyle çok daha güzel oldu.