Форум: "Начинающим";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];
ВнизГоспода подскажите пожалуйста как сделать чтобы в 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)
);
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c