VPF::переход с одного компонета edit на другой

Гость_Николай

Дата 19.10.2005, 19:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

а с помощью клавиши ENTER. Как это сделать подскажите плиз?

Albinos_x

Дата 19.10.2005, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

обрабатываешь событие компанента OnKeyPress -
если Key:=#13 то перейти к другому элементу...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Гость_Николай

Дата 19.10.2005, 19:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


procedure Edit1.KeyDown(...);
begin
If key=VK_RETURN then Edit2.SetFocus;
end;

Так то можно для 2х компонентов, а если их 30 штук?

Самурай

Дата 19.10.2005, 19:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Организуем TabOrder для всех нужных нам Edit'ов следующим образом:
Edit1.TabOrder = 0
Edit2.TabOrder = 1
...

Теперь со спокойной душой мы можем применять следующий код для всех Edit'ов, за исключением последнего (с него мы никуда не переходим)...

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 buf: TComponent;
begin
 if key=#13
  then
   begin
    buf:=FindComponent('Edit' + IntToStr((Sender AS TEdit).TabOrder + 2));
    if buf <> nil
     then
      (buf AS TEdit).SetFocus
   end
end;

Конечно мы можем применять не только TabOrder, но и Name компонента, но это будет дольше работать (т. е. тут дополнительные преобразования со строкой и числом)... smile

Гость_Николай

Дата 19.10.2005, 20:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Самурай
Спасибо! Но я разобрался вот так:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=True;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then
SelectNext(ActiveControl,TRUE,TRUE);
end;

end.

Самурай

Дата 19.10.2005, 20:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

SelectNext

А я и не занал про эту вещь. smile

Спасибо, буду знать, т. к. сам часто организую подобный переход и всегда свои методом, который больше места занимает и дольше работает чем предложенный.

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