Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Вниз
Табуляция через 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c
