Версия для печати темы

Автор: klem4 19.09.2006 0:07

Можно ли при работа с компонентом TStringGrid именно в момент обработки события OnKeyPress определить к ячейке с какими координатами идет обращение ?


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

Автор: volvo 19.09.2006 1:40

Я не понял, ты хочешь получать адрес ТЕКУЩЕЙ (редактируемой в данный момент) клетки?

Так Row/Col вроде не отменили еще...

Автор: klem4 19.09.2006 11:31

Очень очень странно. Почему странно - не важно, даже если скажу не поверите

Спасибо.


Хотя нет, всетаки покажу )

где свойство row ?!!!!

strGrd_array: TStringGrid;




Эскизы прикрепленных изображений

Автор: klem4 19.09.2006 11:47

Да уж ...

не смотря что сама система мне не хочет подсказать что Row и Col здесь всетаки доступно, такой код компилируется на ура

procedure Tfrm_Main.strGrd_arrayKeyPress(Sender: TObject; var Key: Char);
begin
  Key := CheckKey(Key, strGrd_array.Cells[strGrd_array.Row, strGrd_array.Col]);
end;

Автор: klem4 19.09.2006 12:24

Теперь возникла еще одна проблема :

Есть функция по обработке вводимого значения в какое-либо поле, выглядит она так :

function CheckKey(key: char; text: string): char;
begin
  case key of
    '0'..'9', #8: result := key;
    ',', '.':
     if pos(DecimalSeparator, text) = 0 then
      result := DecimalSeparator else result := char(0);
    else result := char(0);
  end
end;

Ее параметры : Key - символ передаваемый из OnKeyPress, text Текст над которым производится редактирование.

В случае применения этой функции к компоненту TEdit Выглядит так :

procedure Tfrm_Main.edt_setupKeyPress(Sender: TObject; var Key: Char);
begin
  Key := CheckKey(Key, edt_setup.Text);
end;

И работает правильно, ввести можно только числа и не более одного десятичного разделителя.

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

procedure Tfrm_Main.strGrd_arrayKeyPress(Sender: TObject; var Key: Char);
begin
  Key := CheckKey(Key, strGrd_array.Cells[strGrd_array.Row, strGrd_array.Col]);
end;

Автор: volvo 19.09.2006 18:10

Все работает... Где-то в другом месте намудрил?

Автор: klem4 19.09.2006 19:16

Да негде мудрить - то было пока ...

Вот все что есть в проекте на данный момент (аттач)

АА я понял, нормлаьно почему-то обрабатывается только первая ячейка, щас разберемся





Хыыы вопрос решен

я писал cells[row, col] а надо-то cells[col, row] ;)




Прикрепленные файлы
 _____________________1.rar ( 196.32 килобайт ) Кол-во скачиваний: 184