|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.09.2008, 09:09 | #1 |
Регистрация: 02.09.2008
Сообщений: 7
|
Вызов процедуры
Вопрос такой.
Есть на форме некая кнопка и создан обработчик ее нажатия. также имеется процедура: ... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then как мне при выполнении условия этого сделать так что бы запустился обработчик выполняющий нажатие на кнопку? |
02.09.2008, 09:15 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
А почему обработчик события нельзя переписать в этой процедуре, для чего кнопка?
|
02.09.2008, 09:31 | #3 |
Регистрация: 02.09.2008
Сообщений: 7
|
А в принципе потому что пользователи у нас глуповатые и сочетание клавиш для некоторых сродни изучению высшей математики, поэтому кнопка им нужна
|
02.09.2008, 09:54 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вообще, то, что Вы пытаетесь выдумать уже выдумано до Вас и называется Actions (смотри ActionList )
ну, если Вам Ваш вариант нравится больше - ну и вызывайте тот код, который назначен на нажатие кнопки, например: Код:
|
02.09.2008, 10:33 | #5 |
Регистрация: 02.09.2008
Сообщений: 7
|
Спасибо вам, но я немного по дургому
...then bubutton1.click...... Но все равно Вам спасибо. |
02.09.2008, 10:44 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Можно еще два варианта, если все же нужно нажимать на кнопку.
1. Делаем кнопку недоступной, в Инспекторе выставляем свойство кнопки Enabled=false. Пишем if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then button1.Enabled:=true; и жмем на кнопку 2. Делаем кнопку невидимой. В Инспекторе выставляем свойство кнопки Visible=false. Пишем if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then button1.visible:=true; и жмем на кнопку |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вызов процедуры | Kashp | Общие вопросы Delphi | 4 | 31.03.2008 16:22 |
Вызов процедуры | Stanislav | Общие вопросы Delphi | 9 | 22.11.2007 19:01 |
вызов процедуры из exe? | Volkogriz | Общие вопросы Delphi | 9 | 16.11.2007 22:34 |
Вызов процедуры | Илья Кибель | Помощь студентам | 7 | 17.09.2007 19:43 |
Вызов процедуры | Monoflextor | Общие вопросы Delphi | 2 | 28.04.2007 17:32 |