Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Вниз

Переход к следующему элементу формы   Найти похожие ветки 

← →
Till   (2003-07-05 11:24) [0]

Здравствуйте Мастера!
У меня маленький вопрос, в обработчике события keyPress допустим Edit ставлю такой код

if (Key = #13) then begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
Свойство keyPreview формы ставлю в True, все компилируеться нормльно, но при нажатии Enter Фокус не передаеться следующему элементу формы почем уне пойму вроде все как надо а не работает... ((((
Помогите пожалуйста, заранее спасибо!

---

← →
Palladin   (2003-07-05 13:28) [1]

у меня работает

---

← →
Till   (2003-07-05 14:30) [2]

Ну дык у меня тож на 6 Дельфи работало,,, :(( а вот на 7 не хочет :((

---

← →
Song   (2003-07-05 22:04) [3]

SelectNext()

---

← →
Till   (2003-07-06 16:32) [4]

Блин он у меня на Ентер ваще не реагирует, почему? я даже делал так например Edit2.SetFocus, а он не работате :(((((((( почему?! :((

---

← →
Юрий Зотов   (2003-07-06 17:09) [5]

> Свойство keyPreview формы ставлю в True

Попробуйте указать SelectNext в обработчике OnKeyPress ФОРМЫ (а не Edit"а). Или в OnKeyDown, но тоже ФОРМЫ.

---

← →
Till   (2003-07-07 05:09) [6]

> Юрий Зотов © (06.07.03 17:09)
> > Свойство keyPreview формы ставлю в True
>
> Попробуйте указать SelectNext в обработчике OnKeyPress ФОРМЫ
> (а не Edit"а). Или в OnKeyDown, но тоже ФОРМЫ.

А что указывать в качастве параметров SelectNext? В Хэлпе написано SelectNext(True) но я чет не понял, подскажите пожалуйста!
Спасибо!

---

← →
Юрий Зотов   (2003-07-07 06:04) [7]

type
TFriendWinControl = class(TWinControl);

procedure TForm1.KeyPress(...);
var
ParentControl: TWinControl;
begin
if (Key = #13) and (ActiveControl <> nil) then
begin
ParentControl := ActiveControl.Parent;
if ParentControl <> nil then
begin
Key := #0;
TFriendWinControl(ParentControl).SelectNext(ActiveControl, True, True)
end
end
end;

---

← →
Till   (2003-07-07 08:06) [8]

> Юрий Зотов © (07.07.03 06:04)
> type
> TFriendWinControl = class(TWinControl);
>
> procedure TForm1.KeyPress(...);
> var
> ParentControl: TWinControl;
> begin
> if (Key = #13) and (ActiveControl <> nil) then
> begin
> ParentControl := ActiveControl.Parent;
> if ParentControl <> nil then
> begin
> Key := #0;
> TFriendWinControl(ParentControl).SelectNext(ActiveControl,
> True, True)
> end
> end
> end;

ОК понял спасибо сейчас попрбую...

---

← →
Till   (2003-07-07 08:09) [9]

Нет не работает все равно не переходит :(((

---

← →
paxer   (2003-07-07 10:10) [10]

Может у тебя есть Action с хотекеем enter?

---

← →
Till   (2003-07-07 14:04) [11]

Я вес понял это из за кнопки блин я кидал на форму кнопку BitBtn вот из-за нее косяк, блииннн

---

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

Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c