Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.012 c