VPF::фокус - Форум программистов

стажёр

Дата 9.9.2005, 14:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Дарова! Как при нажатие Enter-a на одном Edite фокус получал бы другой, т.е. чтоб переход был такой же как и при нажатие табуляции. smile

Romikgy

Дата 9.9.2005, 14:45 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Допустим можно так:

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
Edit2.SetFocus;
end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Dimannn

Дата 9.9.2005, 14:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Romikgy @ 9.9.2005, 14:45)

if ord(key)=13 then

Можно и так:

Код


If key=#13 then

Что общего между этим и ловкостью рук?

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

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Akella

Дата 12.9.2005, 13:12 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

OnKeyDown

Код


желательно проверить, не нажат ли Ctrl или Alt

if (not(ssAlt in Sfift)) or (not(ssCtrl in Sfift))
then
  if key = vk_Return
  then ...передаём фокус

Это сообщение отредактировал(а) Alex - 12.9.2005, 13:28

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