Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Реакция TEdit на нажание клавиш Найти похожие ветки
← →
Draught © (2004-04-22 10:11) [0]как сделать реакцию Edit на нажатие клавиши "Enter", например есть Edit1, нужно что бы при нажатии на клавишу "Enter" нажималась на форме кнопочка "Ок" - стандартная ситуация. Загвоздка в том, что я не могу найти в свойствах Edit что-нить типа onEnterClick
← →
Draught © (2004-04-22 10:11) [0]как сделать реакцию Edit на нажатие клавиши "Enter", например есть Edit1, нужно что бы при нажатии на клавишу "Enter" нажималась на форме кнопочка "Ок" - стандартная ситуация. Загвоздка в том, что я не могу найти в свойствах Edit что-нить типа onEnterClick
← →
[lamer]Barmaglot © (2004-04-22 10:23) [1]Используй onKeyUp
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then messagebox(form1.handle, "готово", "готово", mb_ok);
end;
← →
[lamer]Barmaglot © (2004-04-22 10:23) [1]Используй onKeyUp
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then messagebox(form1.handle, "готово", "готово", mb_ok);
end;
← →
Sun bittern © (2004-04-22 10:23) [2]OnKeyUp
if Key = VK_RETURN then Caption := "";
← →
Sun bittern © (2004-04-22 10:23) [2]OnKeyUp
if Key = VK_RETURN then Caption := "";
← →
Demi (2004-04-22 10:23) [3]Попробуй и спользовать MainMenu.
← →
Demi (2004-04-22 10:23) [3]Попробуй и спользовать MainMenu.
← →
JT (2004-04-22 10:27) [4]Если форма модальная, то у кнопки ОК установи свойство Default:=True и ModalResult:=mrOK. И никакого кода не надо писать.
← →
JT (2004-04-22 10:27) [4]Если форма модальная, то у кнопки ОК установи свойство Default:=True и ModalResult:=mrOK. И никакого кода не надо писать.
← →
Iraizor © (2004-04-22 10:39) [5]дык если юзать onKeyUp То все работать ,но звуковой сигнал ,который говорит :" А нихрена я делать небуду!" , немного смущает
← →
Iraizor © (2004-04-22 10:39) [5]дык если юзать onKeyUp То все работать ,но звуковой сигнал ,который говорит :" А нихрена я делать небуду!" , немного смущает
← →
vl_chel © (2004-04-22 10:51) [6]В обработчике события OnKeyPress
if Key = #13 then {твои действия};
← →
vl_chel © (2004-04-22 10:51) [6]В обработчике события OnKeyPress
if Key = #13 then {твои действия};
← →
[lamer]Barmaglot © (2004-04-22 10:54) [7]Ну нет у меня на работе звука...
попробуй что то типа:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
begin
key:=Word(#0);
messagebox(form1.handle, "готово", "готово", mb_ok);
end;
end;
← →
[lamer]Barmaglot © (2004-04-22 10:54) [7]Ну нет у меня на работе звука...
попробуй что то типа:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
begin
key:=Word(#0);
messagebox(form1.handle, "готово", "готово", mb_ok);
end;
end;
← →
VAleksey © (2004-04-22 10:56) [8]Если edit на форме один то
Button1.Default := true;
← →
VAleksey © (2004-04-22 10:56) [8]Если edit на форме один то
Button1.Default := true;
← →
Draught © (2004-04-22 11:32) [9]Всем спасибо, все получилось
← →
Draught © (2004-04-22 11:32) [9]Всем спасибо, все получилось
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.031 c
