Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизПереход Найти похожие ветки
← →
Ag2002 (2002-09-06 13:01) [0]Люди подскажите вот на форму есть компоненты для ввод данных, я хочу чтобы при нажатии на Ентер фокус от текущего компонента перодовался следующему,по настройкам Tab order, как это сделать ?, конечно можно писать оброботчик события на нажатие клавиши сравнивать её с #13 и переходить на следующий, но если компонентов очень много, как это по рацональней сделать ?
← →
MBo (2002-09-06 13:02) [1]ну так всем нужным Edit один такой обработчик и присвой
← →
Ag2002 (2002-09-06 13:11) [2]Это долго, потом выбирать какой кампонент активет какой следующий, через кейс нехочу, кто нибудь др. способ знает ?
← →
MBo (2002-09-06 13:14) [3]SelectNext
← →
Ag2002 (2002-09-06 13:20) [4]А вот за это процедурку зпасибо, я не знал что такая есть :-(
← →
Romkin (2002-09-06 13:21) [5]procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Form1.SelectNext(ActiveControl,True,True);
end;
и Form1.KeyPreview = true;
← →
onix (2002-09-06 13:21) [6]Свойство формы KeyPreview = true.
В обработчике формы OnKeyPress вставь код
if (Key = #13) then begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
И все вроде. У меня работает.
← →
Ag2002 (2002-09-06 13:39) [7]Вобщем что-то оно не пашет ни как ?
Пробую через FindNextControl тоже не работает ?
чё делать ? Может это из-за того что компоненты расположены на ScrollBoх ?
← →
MBo (2002-09-06 13:46) [8]именно
← →
Ag2002 (2002-09-06 13:51) [9]MBo и как теперь быть ?
← →
MBo (2002-09-06 14:20) [10]ScrollBox.SelectNext
← →
Ag2002 (2002-09-07 12:01) [11]MBo ScrollBox.SelectNext - Нет такой процедуры !!!
← →
MBo (2002-09-07 12:12) [12]что-то ты мудришь.
Вот так у меня работает для Edit на ScrollBox
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
SelectNext(TEdit(Sender),true,true);
end;
← →
Ag2002 (2002-09-07 12:45) [13]Всё спфсибо получилось !!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c