StringGrid + OnKeyPress

← →
Igorok (2003-07-02 12:36) [0]

Привет всем!
Помогите решить проблему:

procedure TForm.StringGridKeyPress(Sender: TObject; var Key: Char);
begin
if Key = "." then Key := ",";

inherited; ---- Вопрос: как отработать данное событие?
т.к. отображается нажатая клавиша
только после End.

<проверка данных в ячейке>

end;

← →
Skier (2003-07-02 12:37) [1]

зачем inherited; ?

> т.к. отображается нажатая клавиша
> только после End.

Переведи...

← →
Igorok (2003-07-02 12:41) [2]

я хочу знать в этом событии сколько символов в ячейке введено, а пока это событие не отработает символ в ячейку не прописывается, мне надо как бы родителя этого события вызвать

← →
Skier (2003-07-02 12:43) [3]

> я хочу знать в этом событии сколько символов в ячейке введено,
> а пока это событие не отработает символ в ячейку не прописывается,
>

А при чём тут событие OnKeyPress ?
Без него никак... ?

← →
Igorok (2003-07-02 12:46) [4]

как тогда решить проблемму?

← →
Skier (2003-07-02 12:48) [5]

>Igorok © (02.07.03 12:46)

> как тогда решить проблемму?

Какую ? Подробнее...

← →
Igorok (2003-07-02 12:53) [6]

в ячейку грида я ввожу число (символы не допустимо) и это число должно быть не больше 99,99 и только два разряда после запятой (маской ввода не пользоваться)

← →
Skier (2003-07-02 12:59) [7]

TStringGrid.OnSetEditText ?

← →
Igorok (2003-07-02 13:17) [8]

нет этот вариант не пройдет, закручено получится

← →
Skier (2003-07-02 13:18) [9]

> закручено получится

То есть ?

← →
Igorok (2003-07-02 13:22) [10]

тогда примерчик реализации кода можно?

← →
Skier (2003-07-02 13:22) [11]

-"Вы что и есть за меня будите ?!"
-"Ага !"

← →
Igorok (2003-07-02 13:28) [12]

тогда к чему этот диалог???
А?

← →
Skier (2003-07-02 13:30) [13]

А к тому что я пытаюсь навести тебя (по мере своих сил)
на правильное (или более простое) решение проблемы, а ты
хочешь чтобы я ещё и код за тебя писал.

← →
Igorok (2003-07-02 13:45) [14]

Ок, спасибо

StringGrid + OnKeyPress Найти похожие ветки