|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.02.2009, 10:29 | #1 |
Пользователь
Регистрация: 31.01.2008
Сообщений: 17
|
делаем код программы легче
Вопрос довольно простой, раньше так делал, а сейчас не могу вспомнить. Проблема такая: На форме расположено около 100 кнопок, на каждой из которых есть надпись. Ещё есть поле EDIT. Вопрос: как сделать так, чтобы при накжатии на любую из кнопок, надпись, которая находится на ней, копировалась в поле EDIT? (только чтобы не нужно было создавать для каждой кнопки свое событие). Там всего пару слов, а вот каких - не помню (SENDER вроде было). Помогите. Срочно нужно.
|
15.02.2009, 10:44 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Пишем обработчик события OnButton1Click для первой кнопки:
Код:
E-Mail: arigato.freelance@gmail.com
|
15.02.2009, 10:59 | #3 |
Пользователь
Регистрация: 31.01.2008
Сообщений: 17
|
Спасибо большое. Очень выручили!
|
15.02.2009, 11:13 | #4 |
Пользователь
Регистрация: 31.01.2008
Сообщений: 17
|
Теперь возникла следующая проблемма. Для кнопок всё нормально, помог выше указанный код. Попробовал сделать тоже самое для элементов MainMenu. Вожу код:
Edit1.Text := TMenuItem(Sender).Caption; но в поле EDIT в месте с надписью выводится ещё и знак & , хотя я его в названиях не использовал. Как мне от него избавиться? |
15.02.2009, 11:20 | #5 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Цитата:
Код:
E-Mail: arigato.freelance@gmail.com
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести код программы | Mr.Crowley | Общие вопросы Delphi | 5 | 11.06.2008 19:08 |
Scroll bar - делаем скин | BOBAH13 | Компоненты Delphi | 7 | 26.04.2008 14:51 |
массы n идентичных на вид монет среди которых одна фальшивая - легче или тяжелее остальных | Wintrymoon | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 10.03.2008 23:10 |
Делаем любые программы на Delphi | asale | Фриланс | 3 | 04.12.2007 14:23 |