F.A.Q.Pblog
1й год Форума программистов 2006-2007
Как выполнить один и тот же код для двух разных событий |
|
После введения данных в 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 в этой же проге, если в результате я хочу получить то же самое? Не переписывать же этот же самый код. Ведь есть способ проще? |
Просмотр ответов: |
| http://programmersforum.ru/showthread.php?t=3597 |
Другие вопросы:
Записать массив байт в файл
Создать папку
Вывести конкретную строку из файла
Окно под курсором
Компонент и ссылки для работы с USB портом
<<<Назад Вперёд>>>