Как сделать приведение класса

Вы уверены , что на том форуме пишете?

)) представила невольно привидение целого класса... Не дай бог)) хотя к концу учебного года многим учителям ага, мерещится уже.

ну я в ответах мейл ру спрашивал они ответили что надо голосовать за пунита ;_;

😆

ну вообще да и это тоже '_'

🤣

Через оператор is ты можешь проверить является ли Sender экземпляром указанного класса или его потомком. Sender is TImage - истина, если это Image и дальше перебираешь свои варианты

дык я то хочу как раз без этого чтобы код в одну строчку)

if Sender.ClassName = 'TImage' then
begin
TPanel((Sender as TImage).Parent).ParentBackground:=true;
end;
if Sender.ClassName = 'TPanel' then
begin
TPanel(Sender).ParentBackground:=true;
end;
if Sender.ClassName = 'TLabel' then
begin
TPanel((Sender as TLabel).Parent).ParentBackground:=true;
end;