Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Внизenter Найти похожие ветки
← →
mrAndersen © (2006-03-20 23:52) [0]На форме есть Edit1, Button1.
Мне нужно чтобы при вводе некого слова в Edit1 нажималась кнопка Button1. Но при этом не сразу произошло нажатие кнопки Button1, а только после нажатия на ENTER.
То есть, я ввожу в Edit1 слово «катя», и сразу же происходит нажатие на клавишу Button1, а мне нужно только тогда когда я наберу «катя» и нажму ENTER.
За ранние благодарен за любые предоставленные ответы.
← →
Luarv (2006-03-20 23:55) [1]Вставить в edit1.onchange
if edit1.text="katya" then button1.setfocus;
Оно?
← →
API © (2006-03-21 02:51) [2]
Button1.Default := true;
procedure TForm1.OnButton1Click(Sender: TObject);
begin
if (Edit1.Text = "katya") then
begin
// действия
end;
end;
← →
mrAndersen © (2006-03-21 02:56) [3]Частично правильно, но данный пример переводит фокус на Button1 и тогда при нажатии на ENTER производятся действия. А если нету кнопки Button1. То есть, мне нужно само нажатия, как бы, подтверждения того что я ввел именно «катя», а не, например «катясх».
← →
ASoft (2006-03-21 02:59) [4]обработчик onkeydown d у Edit
← →
mrAndersen © (2006-03-21 03:03) [5]
> обработчик onkeydown d у Edit
Пожалуйста, поподробнее. Буду весьма благодарен, за любой пример.
← →
EvS © (2006-03-21 09:14) [6]тебе уже ответили
http://delphimaster.net/view/2-1142873793/
что непонятно?
← →
ASoft (2006-03-21 09:20) [7]может так?
....
procedure MyForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
If Edit1.Text = "katya" then
Button1Click(Self); //или выполнить, типа, какю-либо проверку
end;
end;
← →
ASoft (2006-03-21 09:22) [8]млин повторился, наверное, не видел
>http://delphimaster.net/view/2-1142873793/
← →
mrAndersen © (2006-03-22 03:23) [9]У меня ошибки выскакивают при реализации этого кода:
procedure MyForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
If Edit1.Text = "katya" then
Button1Click(Self); //или выполнить, типа, какую-либо проверку
end;
end;
просит убрать точку после «procedure MyForm», после того как я убираю точку, не хочет восприниматься ни Edit1.Text ни Button1Click, то есть пишет:
[Error] Unit1.pas(32): Undeclared identifier: "Edit1"
Что делать?
← →
mrAndersen © (2006-03-22 03:27) [10]может какие то модули нада подключить
← →
Zeqfreed © (2006-03-22 05:23) [11][9] mrAndersen © (22.03.06 03:23)
Обработчик OnKeyDown Edit"а надо создать. И в нем уже этот код писать.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.012 c