Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Edit и DBGrid [D6, IBExpress]

TATIANA © (2004-03-17 10:10:00)
Здравствуйте , господа мастера !
Вопрос простенький , но не получается .
Делаю поиск в таблице - использую Edit , IBQuery1.Locate .
Если запись не найдена - IBQuery1.RecNo := ukaz;
После ввода символов фокус остается у компонента EDIT .
Пытаюсь сделать -

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_DOWN) or (Key = VK_UP) then begin
case PageControl1.TabIndex of
0: DBGrid1.SetFocus; // begin
// end; // beg - 0
1: DBGrid1.SetFocus; // begin
// end; // beg - 1
end; // case
end; // key
end;

Выдает ошибку , что не может передать фокус .
Господа , как передать фокус DBGrid .
Спасибо всем .

TATIANA (2004-03-17 10:43:00) [1]
Плохиш , спасибо за подсказку - "невидимый или запрещенный компонент" . Все получается . В голове глюки , я ошиблась в номере DBGRID . Написала правильный номер - все работает .

Плохиш (2004-03-17 10:31:00) [2]
>TATIANA (17.03.04 10:10)

В сообщении же об ошибке на чистом англицком языке написано "Фокус не может быть передан на невидимый или запрещённый компонент"! Делай выводы. И не забывай, что ты используешь PageControl.

DenK_vrtz (2004-03-17 10:22:00) [3]
Может лучше событие OnChange у Edit'а использовать для поиска?
А IBQuery1.RecNo случаем не -1 равно?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »