Скачать: CL | DM;

Табуляция через 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 - работает!!! :)

---

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

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

---

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

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

---

← →
Кот Бегемот ©   (2002-12-02 14:55) [16]

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

---

← →
sniknik ©   (2002-12-02 15:08) [17]

в фаге есть такая хрень
Ставите у формы 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)
это наживка делай засаду! :-))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c