Delphi Can

Orjinalini görmek için tıklayınız: unidbgird tek enterde edit ve post ıslemi
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
merhaba kodlamada yeniyim uniguide dbgird veri güncellendiğinde ilk enter edit ikinci enter post islemi oluyor ben tek enterde herseyin olmasını istiyorum onkeydown yada onkeypres calısmıyor dahadoğrusu ıkıncı enterde calısıyor.

procedure Tsatisfaturasiform.UniFormCreate(Sender: TObject);
begin
// JavaScript kodunu istemciye gönderiyoruz
  UniSession.AddJS(
    'document.addEventListener(''keydown'', function(event) {' +
    '    console.log("KeyCode captured: " + event.keyCode);' +  // Tuş kodunu konsola yazdırır
    '    ajaxRequest(null, ''keydown'', { key: event.keyCode });' + // AJAX isteği gönderiyoruz
    '});'
  );


procedure Tsatisfaturasiform.UniFormAjaxEvent(Sender: TComponent;
  EventName: string; Params: TUniStrings);

 begin

  if EventName = 'keydown' then
  begin
    ShowMessage('Key Code: ' + Params.Values['key']);
  end;
end

mesaj yazdırıp calısırsa onkeydown yonlendirmek istedim ama olmadı unigui 1567 kullanıyorum yardımlarınızı bekliyorum
merhaba bu kodla yapabildim belki faydalanmak isteyen olur

procedure Tsatisfaturasiform.UniDBGrid1SetCellValue(Sender: TObject; ACol,
ARow: Integer; AField: TField; var Value: Variant);
var
selectedRow: Integer;
begin
selectedRow := UniDBGrid1.DataSource.DataSet.RecNo;
self.UniDBGrid1.DataSource.DataSet.Edit;
self.UniDBGrid1.DataSource.DataSet.FieldByName(self.UniDBGrid1.Columns.Items[Acol].FieldName).Value:=Value;
self.UniDBGrid1.DataSource.DataSet.Post;
self.UniDBGrid1.DataSource.DataSet.RecNo := selectedRow;
self.UniDBGrid1.SetFocus;

end;