DBGRID特定列入力制限

解決

たこ 2018-04-14 01:45:14 No: 49123

DBGRIDに入力する時に例えば入力対象のColumnsのインデックスが5の時には0か1に限定したいのですがどのようにすればいいでしょうか？

たこ 2018-04-16 18:51:29 No: 49124

自己レスです。
検索したところ下記にて対応しました。
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  AcceptStr: string;
begin
  if DBGrid1.SelectedField.FieldName = 'TEST' then
  begin
    AcceptStr := '01';
    if (Pos(Key,AcceptStr)=0) and (Ord(Key) <> VK_BACK) then
      Key := #00
    else
      Key := Key;
  end;
end;

たこ 2018-04-16 18:52:12 No: 49125

解決です。