Мудрость форума: Время для себя
- В чем величие классической литературы?490 ответов
- Как снимается кино?481 ответ
- Увлекаюсь пирсингом!522 ответа
- Самая сложная скороговорка527 ответов
- Посоветуйте интересные фильмы770 ответов
- Где и как справить День рождения, чтобы было весело и недорого?470 ответов
- Не с кем обсудить книги533 ответа
- Положительные герои каких советских фильмов вас раздражают?802 ответа
- Почему многие так зациклены на быте / "хозяйстве"? Разве это еще актуально?692 ответа
- Ходите ли вы в церковь?450 ответов
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;
Форум: Время для себя
Всего: 21 500 тем
Новые темы за сутки: 12 тем
- С мужем обсуждали некоторые моменты из сериала Пятницкий1 ответ
- Если вы живете одна, чем занимаетесь вечером? Не одиноко?4 ответа
- Постучись в мою дверь. Эда, Селин и Серкан, который забыл памятьНет ответов
- Странное увлечение мужа3 ответа
- Настолки дома или в специальном месте3 ответа
- Можно ли установить кондиционер на «Калину» 2018 года?4 ответа
- Моя миссия на Земле7 ответов
- Кто менял стекло на телефоне Самсунг А 30?8 ответов
- Евровидение15 ответов
- Восстановление аккаунта3 ответа
Популярные темы за сутки: 2 темы
- Анекдот про мандарин34 ответа
- Евровидение15 ответов
- А что такое Химки?9 ответов
- Кто менял стекло на телефоне Самсунг А 30?8 ответов
- Моя миссия на Земле7 ответов
- Если вы живете одна, чем занимаетесь вечером? Не одиноко?6 ответов
- Можно ли установить кондиционер на «Калину» 2018 года?4 ответа
- Восстановление аккаунта3 ответа
- Странное увлечение мужа3 ответа
- Настолки дома или в специальном месте3 ответа
Следующая тема
Предыдущая тема
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 тоже помогите плиз #программирование