|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.10.2008, 19:20 | #1 |
Регистрация: 07.07.2008
Сообщений: 6
|
Запуск процедуры из процедуры с дополнением
Здравствуйте.
Столкнулся с такой проблемой. Есть button1 и процедура button1click, так же на форме обитает button2 по нажатию на которую должна выполняться процедура button1.click и еще пара действий. по ходу программы такая ситуация возникает очень много раз, а писать избыточный код не хочется, да и при последующей доработки софтины неудобства возникнут. Возможно ли реализовать такое? P.S А возможно ли написать процедуры без привязки к контролам и потом контролу давать только ссылку на запуск той или иной процедуры. так на мой взгляд будет удобней работать в дальнейшем. (дизайн отдельно, код отдельно). Заранее спасибо. |
06.10.2008, 19:41 | #2 | ||
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
Цитата:
или в button2click вызови button1click(Sender); и дальше другие действия пропиши.. Цитата:
Код:
в появившейся процедуре пишем нужный код.. чтобы обратиться к свойствам элемента вызвавшего выполнение (к примеру возьму TButton) пишем так: TButton(Sender).нужное_свойство и тогда в button1click остается написать тока MyProc(Sender); и готово..
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
||
06.10.2008, 19:44 | #3 |
Форумчанин
Регистрация: 28.09.2008
Сообщений: 344
|
можно вызвать так:
Код:
и если уберешь привязку обработчика к компоненту он всеравно из кода не исчезнет и ты можешь его вызывать вручную (почитайте немного литературы) |
06.10.2008, 21:54 | #4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
procedure tform1.onbutton2Click(sender: TObject);
begin ...... button1.click; //программное нажатие кнопки ...... end;
программа — запись алгоритма на языке понятном транслятору
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
процедуры | Killbrum | Помощь студентам | 5 | 10.06.2008 08:59 |
Вызов процедуры | Kashp | Общие вопросы Delphi | 4 | 31.03.2008 16:22 |
процедуры | FIIR | БД в Delphi | 9 | 26.02.2008 11:26 |
процедуры | FIIR | Помощь студентам | 2 | 26.02.2008 08:12 |