Edit и DBGrid

← →
TATIANA (2004-03-17 10:10) [0]

Здравствуйте , господа мастера !
Вопрос простенький , но не получается .
Делаю поиск в таблице - использую 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 .
Спасибо всем .

← →
DenK_vrtz © (2004-03-17 10:22) [1]

Может лучше событие OnChange у Edit"а использовать для поиска?
А IBQuery1.RecNo случаем не -1 равно?

← →
Плохиш (2004-03-17 10:31) [2]

>TATIANA (17.03.04 10:10)

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

← →
TATIANA (2004-03-17 10:43) [3]

Плохиш , спасибо за подсказку - "невидимый или запрещенный компонент" . Все получается . В голове глюки , я ошиблась в номере DBGRID . Написала правильный номер - все работает .

Edit и DBGrid Найти похожие ветки