Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с TStringGrid, Снятие фокуса ввода 
V
    Опции темы
VaiMR
Дата 13.1.2007, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 25.11.2006

Репутация: нет
Всего: 2



Возникла проблема:
Работаю с таблицей текущая ячейка выделена, но фокуса редактирования нет (godrawfocusselected=true, goediting=true), перемещаться по ней с помощью кнопок и мыши нельзя. Пользователь вводит значение в текущую ячейку и если ответ правильный, то программа перемещает его на следующую ячейку, но при перемещении новая ячейка уже имеет фокус ввода, а он не нужен, нужно только выделение. В этом и проблема: Как снять фокус ввода и оставить только выделение? 

PS: Возиться с цветами не хочеться.

вот кусок кода:
Код

   with protocol do   
    if (key=#13)
     then
      if Cells[Col,Row]<>protocol2.Cells[Col,Row]
       then
        begin
         messagedlg('Ошибка!!!', mtInformation,[mbOk], 0);
         kolerr:=kolerr+1;
         Cells[Col,row]:='';
        end
       else
        begin
         canvas.Refresh;
         if row<rowcount-1
          then
           row:=row+1
          else
           begin
            row:=2;
            if col<colcount-1
             then
              col:=col+1
             else
              messagedlg('Вы закончили, сделав: '+inttostr(kolerr)+' ошибок'
                          , mtInformation,[mbOk], 0);
           end;
        end;

PM MAIL ICQ   Вверх
VaiMR
Дата 13.1.2007, 03:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 25.11.2006

Репутация: нет
Всего: 2



Пишу - тренажер, в котором надо на контрольной заполнять протокол работы алгоритма т. е. таблицу.
PM MAIL ICQ   Вверх
Sunvas
Дата 13.1.2007, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89



Цитата(VaiMR @  13.1.2007,  03:08 Найти цитируемый пост)
Пишу - тренажер, в котором надо на контрольной заполнять протокол работы алгоритма т. е. таблицу.

Меня тут мысль посетила, а может тебе заполнять не таблицу, а что-то другое - Edit-ы например.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
VaiMR
Дата 13.1.2007, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 25.11.2006

Репутация: нет
Всего: 2



это будет заведомо неправильно, так с таблицей в 100*100 трудновато будет, начал работать с цветами - думаю тогда проблема с фокусом отпадет сама собой, но пост пока остается в силе.
PM MAIL ICQ   Вверх
VaiMR
Дата 16.1.2007, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 25.11.2006

Репутация: нет
Всего: 2



Вопрос решил созданием обьекта, хранящего цвет фона и цвет шрифта и перерисовыванием в методе ondrawcell - цветную таблицу сделал короче.
А так хотелось просто снять фокус редактирования smile

Это сообщение отредактировал(а) VaiMR - 16.1.2007, 17:16
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0524 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.