+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: unidbgird tek enterde edit ve post ıslemi (/showthread.php?tid=8000)
unidbgird tek enterde edit ve post ıslemi - mehmet07 - 04-01-2025
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
unidbgird tek enterde edit ve post ıslemi - mehmet07 - 05-01-2025
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;