Господа подскажите пожалуйста как сделать чтобы в StringGrid

← →
JTAG (2006-05-30 22:16) [0]

Было возможно вводить только цифры?

← →
Gydvin © (2006-05-30 22:27) [1]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ["0".."9"]) then key:=#0 end;

← →
Kolan © (2006-05-30 22:33) [2]

Вот блин. НАписал минт 10 назад:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if not Key in ["0".."9"] then Key := #0; end;

Компилю - [Error] Unit1.pas(28): Operator not applicable to this operand type
Весь хелп перерыл... Скобочки .....

← →
JTAG (2006-05-30 23:00) [3]

Спасибо!

← →
Жуков Олег (2006-05-30 23:57) [4]

Один из способов
type THackedStringGrid = class(TCustomGrid); SetWindowLong( THackedStringGrid(StringGrid1).InplaceEditor.Handle, GWL_STYLE, ES_NUMBER or GetWindowLong(THackedStringGrid(StringGrid1).InplaceEditor.Handle, GWL_STYLE) );

Господа подскажите пожалуйста как сделать чтобы в StringGrid Найти похожие ветки