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.
|