|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.10.2009, 15:28 | #1 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
ActionList будь он не ладен.
Суть в следующем
нужно сделть экшены самому на изменение стиля текста. делаю вот так procedure TForm1.ActionPuhExecute(Sender: TObject); begin if (Sender as TSpeedButton).Down = false then begin richedit1.SelAttributes.Style:= richedit1.SelAttributes.Style - [fsBold]; end else begin richedit1.SelAttributes.Style:= richedit1.SelAttributes.Style + [fsBold]; end; end; ошибка преобразования типа вылезает. Хочу сделать экшен не привязанный к определенной кнопке, потому что если написать вместо (Sender as TSpeedButton).Down = false обычный puh.Down = false то все работает. |
11.10.2009, 15:35 | #2 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Цитата:
и я бы проверял лучше сам атрибут а не кнопку.(предыдущее мое сообщение как раз об этом) Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
11.10.2009, 15:58 | #3 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
Project2.exe raised exception class EinvalidCast whith message 'Invalid class typeCast'
|
11.10.2009, 17:19 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Код:
или еще так: посмотрите класс сендера. Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. Последний раз редактировалось Пепел Феникса; 11.10.2009 в 17:21. |
11.10.2009, 17:25 | #5 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
Класс TAction выдает !?
|
11.10.2009, 17:28 | #6 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
Я же через ActionList создаю свой экшен, так. А потом как мне его вызвать тогда так чтобы он вызывался SpeedButton?
|
11.10.2009, 17:36 | #7 | |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Цитата:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
|
11.10.2009, 17:37 | #8 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
тогда будь добр подскажи как....
|
11.10.2009, 17:42 | #9 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
11.10.2009, 17:46 | #10 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
Блин, я так прошлый раз и делал.)))
Спасибо, ты меня на светлые мысли натолкнул про Sender) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Actionlist - ? | Evgenii | Компоненты Delphi | 2 | 20.07.2009 03:05 |
Динамический PopUp и ActionList | TOJluK | Компоненты Delphi | 1 | 05.05.2009 07:56 |
Как правильно использовать ActionMainMenuBar, ActionList и ActionManager | A1seg | Общие вопросы Delphi | 1 | 18.03.2009 08:29 |
Потрібна допомога!!!Будь-ласка | Їжачок | Помощь студентам | 9 | 24.04.2008 15:40 |