Переход

← →
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 и как теперь быть ?

ScrollBox.SelectNext

← →
Ag2002 (2002-09-07 12:01) [11]

MBo ScrollBox.SelectNext - Нет такой процедуры !!!

что-то ты мудришь.
Вот так у меня работает для 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]

Всё спфсибо получилось !!!

Переход Найти похожие ветки