Скачать: CL | DM;

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 . Написала правильный номер - все работает .

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c