Табуляция через Enter

← →
4x4 (2002-12-02 11:22) [0]

У меня на форме много компонентов и надо осуществить навигацию через Enter, т.е. сымитировать нажатие TAB клавиши, но без SetFocus метода!Следующий код onKeyPress- не помогает!
if Key = vk_TAB then
Key:=vk_Tab;

← →
FreeLancer © (2002-12-02 11:25) [1]

if Key = vk_TAB then Key:=vk_Tab;
То есть если Key = TAB, то Key := TAB? Что за фигня?

← →
Song © (2002-12-02 11:26) [2]

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key=VK_RETURN then
Begin
keybd_event(VK_TAB,0,0,0);
keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
Key:=0;
End;
end;

← →
Song © (2002-12-02 11:27) [3]

2FreeLancer © (02.12.02 11:25)
Он наверно имел ввиду

if Key = vk_return then
Key:=vk_Tab;

← →
4x4 (2002-12-02 11:33) [4]

if Key = vk_ENTER then
Key:=vk_Tab;
Я извиняюсь! :)

← →
Song © (2002-12-02 11:36) [5]

Извиняйся ещё раз: VK_ENTER нет такого.

← →
4x4 (2002-12-02 11:38) [6]

vk_Return- извиняюсь ещё раз! :)

← →
4x4 (2002-12-02 11:45) [7]

to Song: а зачем 2 раза keybd_event вызывать?

← →
FreeLancer © (2002-12-02 11:46) [8]

Упал - > Отжался

← →
Andryk © (2002-12-02 11:56) [9]

Можно еще переписать обработчик сообщения CM_DialogKey у формы, и там все разрулить, а потом все формы наследовать от нее

← →
Song © (2002-12-02 12:54) [10]

2to Song: а зачем 2 раза keybd_event вызывать?
Ну, а ты попробуй один раз :)

← →
Игорь Шевченко © (2002-12-02 12:56) [11]

Song © (02.12.02 12:54)

А зачем так ? Через keybd_event?

← →
Song © (2002-12-02 13:04) [12]

Да, вот так захотелось мне просто.
Что пришло первое в голову, то и написал. Какая разница, если эффект достигнут?

← →
4x4 (2002-12-02 13:07) [13]

Попробовал один раз keybd_event - работает!!! :)

Ага, а потом попробуй кнопочки понажимать ярлычки покликать...

← →
4x4 (2002-12-02 14:19) [15]

Всё работает прекрасно!!! :)

Еще один ламер - ловите пока не убежал - знаете какое у них мясо вкусное :)))

в фаге есть такая хрень
Ставите у формы KeyPreview = true и создаете событие KeyPress следующего вида:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;

Кот Бегемот © (02.12.02 14:55)
это наживка делай засаду! :-))

Табуляция через Enter Найти похожие ветки