unidbgird tek enterde edit ve post ıslemi

[mehmet07]

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

[mehmet07]

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;