Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.02.2009, 10:29   #1
XFilippowX
Пользователь
 
Регистрация: 31.01.2008
Сообщений: 17
По умолчанию делаем код программы легче

Вопрос довольно простой, раньше так делал, а сейчас не могу вспомнить. Проблема такая: На форме расположено около 100 кнопок, на каждой из которых есть надпись. Ещё есть поле EDIT. Вопрос: как сделать так, чтобы при накжатии на любую из кнопок, надпись, которая находится на ней, копировалась в поле EDIT? (только чтобы не нужно было создавать для каждой кнопки свое событие). Там всего пару слов, а вот каких - не помню (SENDER вроде было). Помогите. Срочно нужно.
XFilippowX вне форума Ответить с цитированием
Старый 15.02.2009, 10:44   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,206
По умолчанию

Пишем обработчик события OnButton1Click для первой кнопки:
Код:
Edit1.Text := TButton (Sender).Caption;
Далее всем остальным кнопкам указываем этот же обработчик.
Arigato вне форума Ответить с цитированием
Старый 15.02.2009, 10:59   #3
XFilippowX
Пользователь
 
Регистрация: 31.01.2008
Сообщений: 17
По умолчанию

Спасибо большое. Очень выручили!
XFilippowX вне форума Ответить с цитированием
Старый 15.02.2009, 11:13   #4
XFilippowX
Пользователь
 
Регистрация: 31.01.2008
Сообщений: 17
По умолчанию

Теперь возникла следующая проблемма. Для кнопок всё нормально, помог выше указанный код. Попробовал сделать тоже самое для элементов MainMenu. Вожу код:
Edit1.Text := TMenuItem(Sender).Caption;

но в поле EDIT в месте с надписью выводится ещё и знак & , хотя я его в названиях не использовал. Как мне от него избавиться?
XFilippowX вне форума Ответить с цитированием
Старый 15.02.2009, 11:20   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,206
По умолчанию

Цитата:
но в поле EDIT в месте с надписью выводится ещё и знак & , хотя я его в названиях не использовал. Как мне от него избавиться?
Код:
Edit1.Text := StringReplace (TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]);
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести код программы 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