Tekil Mesaj gösterimi
Alt 11 Mart 2015, 10:34   #1
Çevrimiçi
Kaf_Dağı Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
DBGridde Excel gibi CTRL+D işlevini kullanmak




DBGridde Excel gibi CTRL+D işlevini kullanmak


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
procedure THGirisF.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var v : variant; col : string; begin if (GetKeyState(ord('D')) AND 128) = 128 then if (GetKeyState(VK_CONTROL) AND 128) = 128 then begin DM.KARGOMEM.DisableControls; col := DBGrid1.SelectedField.FieldName; With DM.KARGOMEM do begin if RecNo = -1 then //for a new reocrd just appended begin Last; v := FieldValues[col]; Append; DBGrid1.Fields[DBGrid1.SelectedField.FieldNo-1].Value := v; end else begin // for existing record Prior; v := FieldValues[col]; next; Edit; FieldValues[col] := v; Post; end; end; //ShowMessage('correct column: '+col+' with value: '+v); DM.KARGOMEM.EnableControls; end;


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan