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

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 вся ветка

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



Память: 0.47 MB
Время: 0.05 c