нажатие "Enter" в поле Edit
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
- Oleg_Rus
- Сообщения: 335
- Зарегистрирован: 16 окт 2006, 09:56
- Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
- Контактная информация:
Здравтсвуйте все!
Допустим, у меня есть поле Edit в которое вводится пароль.
Задачи такая: при нажатии "Энтер" выполняются те же действия, что и при нажатии на кнопку. Как это реализовать?
Допустим, у меня есть поле Edit в которое вводится пароль.
Задачи такая: при нажатии "Энтер" выполняются те же действия, что и при нажатии на кнопку. Как это реализовать?
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
Таки у Эдита есть эвент OnKeyDown
Таки и проверяешь если клавиша энтер делаешь свои действия..
Таки и проверяешь если клавиша энтер делаешь свои действия..
- Сейчас_не_спящий
- Сообщения: 46
- Зарегистрирован: 26 янв 2007, 17:06
- Откуда: Беларусь, Гомель
- Контактная информация:
Вот тебе код, может понятнее будет:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShowMessage('OK'); // вместо этой строки пишешь операции, которые
//должны происходить что и при нажати на кнопку.
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShowMessage('OK'); // вместо этой строки пишешь операции, которые
//должны происходить что и при нажати на кнопку.
end;
end.
Всё не знает никто, но важно найти того кто знает нужное...
- Сейчас_не_спящий
- Сообщения: 46
- Зарегистрирован: 26 янв 2007, 17:06
- Откуда: Беларусь, Гомель
- Контактная информация:
Когда начинал, у меня этот вопрос сразу перефразировался: как вызвать procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); <-- эту строчку я видел во многих тогда учебниках, НО НИ ОДИН, кроме "Программирование в Delphi" Архангельского не дал мне на это ответ, так что если у тебя возникнет анологичная проблема делай следкющее:
1. Ищешь окно Object TreeView
2. Выбираешь там свой Edit1
3. Ищешь окно Object Inspector
4. Открываешь вкладку Events
5. Находишь там OnKeyPress и нажимаешь по полю двойным щелчком.
Всё.
Всё, просто, но никто мне тогда не объяснил, пришлось пол часа искать самому=))
1. Ищешь окно Object TreeView
2. Выбираешь там свой Edit1
3. Ищешь окно Object Inspector
4. Открываешь вкладку Events
5. Находишь там OnKeyPress и нажимаешь по полю двойным щелчком.
Всё.
Всё, просто, но никто мне тогда не объяснил, пришлось пол часа искать самому=))
Всё не знает никто, но важно найти того кто знает нужное...
- Oleg_Rus
- Сообщения: 335
- Зарегистрирован: 16 окт 2006, 09:56
- Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
- Контактная информация:
бальшое всем пасибо!
Не отходя далеко хочу спросить, можно ли по нажатии на кнопку перейти на Html-файл, и если да, то как?
Не отходя далеко хочу спросить, можно ли по нажатии на кнопку перейти на Html-файл, и если да, то как?
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
Собственно это не по теме нужно создавать новую тему
uses ShellAPI;
ShellExecute(handle, 'open', 'http://...ru/', nil, nil, SW_SHOW);
Да и KeyPress-ом не очень хорошо подобные операции проделывать процедурка забойная..
uses ShellAPI;
ShellExecute(handle, 'open', 'http://...ru/', nil, nil, SW_SHOW);
Да и KeyPress-ом не очень хорошо подобные операции проделывать процедурка забойная..
- Oleg_Rus
- Сообщения: 335
- Зарегистрирован: 16 окт 2006, 09:56
- Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
- Контактная информация:
Duncon, а если по-подробней?
как я понял 'Open' - команда открытия 'http://....ru/', sw_show - показать окно, но вот что за handle, nil?
как я понял 'Open' - команда открытия 'http://....ru/', sw_show - показать окно, но вот что за handle, nil?
e-mail: garmayev@yandex.ru
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
---------------------------------------------------------------------------
<a href="http://nick-name.ru/sertificates/711965/"><img src="http://nick-name.ru/img.php?nick=Garmay ... =2&text=t5" alt="Никнейм Garmayev зарегистрирован!" /></a>
смотри help ShellExecute или может где в инете описалово валяется, мне лень объяснять у нее много возможностей..
зы F1 рулит, а так же google..
зы F1 рулит, а так же google..