IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Delphi (https://www.ircforumlari.net/delphi/)
-   -   DBGridde Excel gibi CTRL+D işlevini kullanmak (https://www.ircforumlari.net/delphi/688191-dbgridde-excel-gibi-ctrld-islevini-kullanmak.html)

Kaf_Dağı 11 Mart 2015 10:34

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;



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk