Свойство taborder перескок по enter

[tarakan1983]

Доброго времени суток. В делфи перескок от одного едита к другмоу происходит по нажатию на tab на клавиатуре, а как сделать чтобы перескок происходил по нажатию на ентер.

[Terran]

Сообщение от tarakan1983

Доброго времени суток. В делфи перескок от одного едита к другмоу происходит по нажатию на tab на клавиатуре, а как сделать чтобы перескок происходил по нажатию на ентер.

Можете сделать так:

Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Begin
If Key=#13 Then
Begin
Edit2.SetFocus;
End;
End;
Procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
Begin
If Key=#13 Then
Begin
Edit3.SetFocus;
End;
End;
...

[mihali4]

Ну, это проще простого...
В обработчике события OnKeyDown для Edit1:

if key=VK_RETURN then
Edit2.SetFocus;

и так далее...
А вот по KeyPress не пойдет - при попытке что-либо внести в Edit1 сразу произойдет "перескок" на Edit2...

[Terran]

Сообщение от mihali4

Ну, это проще простого...
В обработчике события OnKeyDown для Edit1:

if key=VK_RETURN then
Edit2.SetFocus;

и так далее...
А вот по KeyPress не пойдет - при попытке что-либо внести в Edit1 сразу произойдет "перескок" на Edit2...

Но вариант приведённый выше подойдёт.

[tarakan1983]

Сообщение от mihali4

Ну, это проще простого...
В обработчике события OnKeyDown для Edit1:

if key=VK_RETURN then
Edit2.SetFocus;

и так далее...
А вот по KeyPress не пойдет - при попытке что-либо внести в Edit1 сразу произойдет "перескок" на Edit2...

Я понимаю что это наглость, но мне кажется заморочено как-то для каждого едита писать обработчик, нельзя как-нибудь чтобы сразу ко всем относилось? Спасибо что так быстро отозвались.

[Terran]

Сообщение от tarakan1983

Я понимаю что это наглость, но мне кажется заморочено как-то для каждого едита писать обработчик, нельзя как-нибудь чтобы сразу ко всем относилось? Спасибо что так быстро отозвались.

Можно конечно сделать процедуру в которой при нажатии на ентер будет происходить проверка едитов и потом переключение фокуса, но мне кажется, что будет проще так код приписать.

[tarakan1983]

Сообщение от Terran

Можно конечно сделать процедуру в которой при нажатии на ентер будет происходить проверка едитов и потом переключение фокуса, но мне кажется, что будет проще так код приписать.

Ради интереса, можно подробнее, куда поместить эту процедуру, и когда она должна выполняться?

[Terran]

Сообщение от tarakan1983

Ради интереса, можно подробнее, куда поместить эту процедуру, и когда она должна выполняться?

Я тут подумал, что будет лучше всего сделать так:
Скачать компонент FisHotKey с отсюда: http://programmersforum.ru/showthread.php?t=25894 и потом написать такой код:

Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;
Procedure TForm1.fisHotKey1HotKey(Sender: TObject);
Begin
SetKey(3849);
End;

Или местно в программе перехватывать нажатие клавиши Enter.

[tarakan1983]

Сообщение от Terran

Я тут подумал, что будет лучше всего сделать так:
Скачать компонент FisHotKey с отсюда: http://programmersforum.ru/showthread.php?t=25894 и потом написать такой код:

Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;
Procedure TForm1.fisHotKey1HotKey(Sender: TObject);
Begin
SetKey(3849);
End;

Или местно в программе перехватывать нажатие клавиши Enter.

Извините что так долго, инет загнулся.
скачал компоненту, установил. написал код:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Menus, IniFiles, comobj;

type
TForm1 = class(TForm)
Procedure fisHotKey1HotKey(Sender: TObject);
...............

{$R *.dfm}
const
xlA1 = 1;
xlCenter = -4108;
xlRight = -4152;
xlLeft = -4131;
xlBottom = $FFFFEFF5;
xlContinuous = 1;
xlNone = -4142 ;
xlDiagonalDown = 5;
xlthin = 2;
Procedure SetKey(Key: Integer);
Begin
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(Key, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0);
End;
Procedure TForm1.fisHotKey1HotKey(Sender: TObject);
Begin
SetKey(3849);
End;
.............

Все компилируется и запускается, но по ентер не работает

[Terran]

А вы в компоненте указали код клавиши Enter, который равен 13?