Форум: "Основная";
Текущий архив: 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.008 c
