ActionList будь он не ладен.

[Leo20]

Суть в следующем

нужно сделть экшены самому на изменение стиля текста.

делаю вот так

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

то все работает.

[Пепел Феникса]

ошибка преобразования типа вылезает.

можно её текст?
и я бы проверял лучше сам атрибут а не кнопку.(предыдущее мое сообщение как раз об этом)

[Leo20]

Project2.exe raised exception class EinvalidCast whith message 'Invalid class typeCast'

[Пепел Феникса]

if Sender is TSpeedButton 
 then if (Sender as TSpeedButton).Down = false 
         then richedit1.SelAttributes.Style:= richedit1.SelAttributes.Style - [fsBold]
         else richedit1.SelAttributes.Style:= richedit1.SelAttributes.Style + [fsBold]
 else ShowMessage('Это не SpeedButton');

попробуйте так.

или еще так:
посмотрите класс сендера.

ShowMessage(Sender.ClassName);

[Leo20]

Класс TAction выдает !?

[Leo20]

Я же через ActionList создаю свой экшен, так. А потом как мне его вызвать тогда так чтобы он вызывался SpeedButton?

[Пепел Феникса]

и я бы проверял лучше сам атрибут а не кнопку.

я уже писал.

[Leo20]

тогда будь добр подскажи как....

[Пепел Феникса]

http://programmersforum.ru/showpost....8&postcount=11

[Leo20]

Блин, я так прошлый раз и делал.)))
Спасибо, ты меня на светлые мысли натолкнул про Sender)