Мудрость форума: Время для себя
- Будни домохозяйки?710 ответов
- Не с кем обсудить книги538 ответов
- Ходите ли вы в церковь?454 ответа
- Посоветуйте, пожалуйста, какой фильм посмотреть580 ответов
- "Встаю в 5, потому что вынуждена выходить из дома в 7". КУДА вы тратите СТОЛЬКО времени по утрам?!683 ответа
- Как все успевать, если работаешь с 9 до 18 часов?807 ответов
- Чем занимаются одинокие?1 554 ответа
- Хорошие турецкие сериалы502 ответа
- Пересмотрела Титаник. Есть вопросы504 ответа
- В чем величие классической литературы?497 ответов
9 ответов
Последний —
Перейти
Гость
Вы уверены , что на том форуме пишете?
Сказка
)) представила невольно привидение целого класса... Не дай бог)) хотя к концу учебного года многим учителям ага, мерещится уже.
Через оператор is ты можешь проверить является ли Sender экземпляром указанного класса или его потомком. Sender is TImage - истина, если это Image и дальше перебираешь свои варианты
Через оператор 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;
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;
Форум: Время для себя
Всего: 52 084 темы
Новые темы за сутки: 20 тем
- Очень хочу найти хобби в 24 года4 ответа
- Почему все любят Сумерки?6 ответов
- Муха на потолке стоит или весит?7 ответов
- Интересная, но несложная задачка4 ответа
- Не могу найти песню из заставки женского форума1 ответ
- Есть такие кто купил айфон и пожалел?4 ответа
- Бесплатный билет на матч „Зенит“ — „Ахмат“: кто готов зажечь на трибунах?2 ответа
- Отель "все включено" или отдых на природе. Что лучше?1 ответ
- Где туристы на природе должны хранить еду, если в палатке нельзя?2 ответа
- Не смотреть телевизор — это нормально?10 ответов
Популярные темы за сутки: 1 тема
- Шалаш под дождём, но с камином167 265 ответов
- Темы наших любимых литературных персонажей106 319 ответов
- Недобаффет и новогоднее настроение91 021 ответ
- Без политики обо всём81 632 ответа
- Муха на потолке стоит или весит?7 ответов
- Почему все любят Сумерки?6 ответов
- Очень хочу найти хобби в 24 года4 ответа
- Интересная, но несложная задачка4 ответа
- Есть такие кто купил айфон и пожалел?4 ответа
- Не могу найти песню из заставки женского форума1 ответ
Следующая тема
Предыдущая тема
function btn_anim(Sender:TObject, i:integer):boolean;
beign
if i = 1 then
begin
TPanel((Sender as TImage).Parent).Color:=clWhite;
end ELSE
begin
TPanel((Sender as TImage).Parent).Color:=clWhite;
end;
end;
как сделать так чтобы не приводить сендер к классу т имейдж, потому что он может быть и лейбл и панел, ну то есть чтобы он автоматически определял класс, класс TComponent не обладает свойством парент и TObject тоже помогите плиз #программирование