нажатие "Enter" в поле Edit

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Аватара пользователя
Oleg_Rus
Сообщения: 335
Зарегистрирован: 16 окт 2006, 09:56
Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
Контактная информация:

Здравтсвуйте все!
Допустим, у меня есть поле 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>
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Таки у Эдита есть эвент 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.
Всё не знает никто, но важно найти того кто знает нужное...
Аватара пользователя
Сейчас_не_спящий
Сообщения: 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 и нажимаешь по полю двойным щелчком.
Всё.
Всё, просто, но никто мне тогда не объяснил, пришлось пол часа искать самому=))
Всё не знает никто, но важно найти того кто знает нужное...
Аватара пользователя
Oleg_Rus
Сообщения: 335
Зарегистрирован: 16 окт 2006, 09:56
Откуда: г.Улан-Удэ, респ.Бурятия, Российская Федерация
Контактная информация:

бальшое всем пасибо!
Не отходя далеко хочу спросить, можно ли по нажатии на кнопку перейти на 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>
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Собственно это не по теме нужно создавать новую тему
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?
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>
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

смотри help ShellExecute или может где в инете описалово валяется, мне лень объяснять у нее много возможностей..

зы F1 рулит, а так же google..
Ответить