Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
2-1143105021
Andrey_K_M
2006-03-23 12:10
2006.04.09
битовые последовательности


2-1143286589
Старик
2006-03-25 14:36
2006.04.09
Запись двоичных данных


15-1142514612
Hover
2006-03-16 16:10
2006.04.09
Помогите небольшую задачку решить


15-1142318554
Knight
2006-03-14 09:42
2006.04.09
FreeLibrary... Что не так?


2-1143473111
SamProf
2006-03-27 19:25
2006.04.09
Как можно перечислить все диски?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский