Страница 1 из 1

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

Добавлено: 28 янв 2007, 08:05
Oleg_Rus
Здравтсвуйте все!
Допустим, у меня есть поле Edit в которое вводится пароль.
Задачи такая: при нажатии "Энтер" выполняются те же действия, что и при нажатии на кнопку. Как это реализовать?

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

Добавлено: 28 янв 2007, 11:05
Duncon
Таки у Эдита есть эвент OnKeyDown
Таки и проверяешь если клавиша энтер делаешь свои действия..

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

Добавлено: 28 янв 2007, 20:27
Сейчас_не_спящий
Вот тебе код, может понятнее будет:
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.

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

Добавлено: 28 янв 2007, 20:38
Сейчас_не_спящий
Когда начинал, у меня этот вопрос сразу перефразировался: как вызвать procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); <-- эту строчку я видел во многих тогда учебниках, НО НИ ОДИН, кроме "Программирование в Delphi" Архангельского не дал мне на это ответ, так что если у тебя возникнет анологичная проблема делай следкющее:
1. Ищешь окно Object TreeView
2. Выбираешь там свой Edit1
3. Ищешь окно Object Inspector
4. Открываешь вкладку Events
5. Находишь там OnKeyPress и нажимаешь по полю двойным щелчком.
Всё.
Всё, просто, но никто мне тогда не объяснил, пришлось пол часа искать самому=))

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

Добавлено: 29 янв 2007, 02:25
Oleg_Rus
бальшое всем пасибо!
Не отходя далеко хочу спросить, можно ли по нажатии на кнопку перейти на Html-файл, и если да, то как?

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

Добавлено: 29 янв 2007, 09:02
Duncon
Собственно это не по теме нужно создавать новую тему
uses ShellAPI;
ShellExecute(handle, 'open', 'http://...ru/', nil, nil, SW_SHOW);

Да и KeyPress-ом не очень хорошо подобные операции проделывать процедурка забойная..

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

Добавлено: 29 янв 2007, 09:12
Oleg_Rus
Duncon, а если по-подробней?
как я понял 'Open' - команда открытия 'http://....ru/', sw_show - показать окно, но вот что за handle, nil?

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

Добавлено: 29 янв 2007, 17:57
Duncon
смотри help ShellExecute или может где в инете описалово валяется, мне лень объяснять у нее много возможностей..

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