Маска Delphi для двоичных чисел

Question

У меня есть StringGrid и хочу иметь в ней только ячейки 1 или 0. Я пытаюсь использовать StringGridGetEditMask

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, 
    ARow: Integer; var Value: String); 
begin 
    Value := '0'; 
    if not (strToInt(Value) in [0,1]) then value := #0; 
end; 

Но я могу ввести все цифры от 0 до 9. Как я могу фильтровальные все номера, кроме 0 и 1?

Answer 1

Для вашего намерения вам понадобится подкласс класса TStringGrid и в таком подклассе назначить редактор inplace, например. OnKeyPress как показано в этом каталоге:

type 
    TStringGrid = class(Grids.TStringGrid) 
    private 
    procedure InplaceEditKeyPress(Sender: TObject; var Key: Char); 
    protected 
    function CreateEditor: TInplaceEdit; override; 
    end; 

implementation 

{ TStringGrid } 

function TStringGrid.CreateEditor: TInplaceEdit; 
begin 
    Result := inherited CreateEditor; 
    TMaskEdit(Result).OnKeyPress := InplaceEditKeyPress; 
end; 

procedure TStringGrid.InplaceEditKeyPress(Sender: TObject; var Key: Char); 
begin 
    if not (Key in [#8, '0', '1']) then 
    Key := #0; 
end; 

Answer 2

Вы неправильно поняли событие OnGetEditMask. Value - это не новая строка, которую вы можете изменить, но место, где вы должны дать управление маске. К сожалению, однако, edit masks не разрешает запрашиваемые функции.