IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - DBGridde Excel gibi CTRL+D işlevini kullanmak

DBGridde Excel gibi CTRL+D işlevini kullanmak

Kod:

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;