|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.05.2007, 16:09 | #1 |
Регистрация: 08.05.2007
Сообщений: 5
|
как выполнить один и тот же код для двух разных событий
Как сделать так, чтобы после введения данных в Edit1 при нажатии Enter, начал выполняться тот же код, что и по нажатию Button1?
К примеру по нажатию Button1 происходит следующее: procedure TForm1.Button1Click(Sender: TObject); var a:Currency; result:Currency; begin if Length(Edit1.Text)=0 then begin Application.MessageBox('Вы не ввели число', 'Ошибка', MB_OK); exit; end; a:= StrToCurr(Edit1.Text); result:=a*5; Label2.Caption:=CurrToStr(result); end; end. Как должен выглядеть код события OnKeyPress для Edit1 в этой же проге, если в результате я хочу получить то же самое? Не переписывать же этот же самый код. Ведь есть способ проще? |
08.05.2007, 16:13 | #2 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Вызывай процедуру
Form1.Button1.Click; и все.. |
08.05.2007, 16:16 | #3 |
Регистрация: 08.05.2007
Сообщений: 5
|
Так просто, оказывается.
Спасибо. |
08.05.2007, 16:18 | #4 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 143
|
а если именнь понажатию на Enter то надо так:
if key = VK_RETURN then прописываешь событие по нажатию твоей кнопки ... Button1.Click;
Свободу клавиатурным самураям...
|
11.05.2007, 18:27 | #5 |
Heavy metal
Пользователь
Регистрация: 02.04.2007
Сообщений: 42
|
А быстрее будет просто вызвать Button1Click(Button1);
|
11.05.2007, 19:03 | #6 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
procedure TfrmMain.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin if key = 13 then Button1Click(Button1); end;
Не надо ничего усложнять. Все достаточно тривиально.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
неободимо выполнить php | мит | PHP | 1 | 01.09.2008 22:36 |
Копирование двух файлов в один | JRcoker | Общие вопросы Delphi | 5 | 18.07.2008 21:37 |
Копировать данные из разных ячеек по нескольким листам в один лист | Dorvir | Microsoft Office Excel | 2 | 11.06.2008 10:10 |
Как выполнить поиск на винте | SeRhy | Помощь студентам | 1 | 02.11.2007 16:33 |