Мудрость форума: Время для себя
- Самая сложная скороговорка528 ответов
- Посоветуйте книги про подростков598 ответов
- Сайты для общения с иностранцами для практики в изучении языка598 ответов
- Самые страшные фильмы ужасов8 428 ответов
- Посоветуйте интересные фильмы772 ответа
- Фильмы, основанные на реальных событиях534 ответа
- Хорошие турецкие сериалы500 ответов
- "Встаю в 5, потому что вынуждена выходить из дома в 7". КУДА вы тратите СТОЛЬКО времени по утрам?!681 ответ
- Увлекаюсь пирсингом!634 ответа
- Назовите очень грустные песни, от которых плакать хочется702 ответа
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;
Форум: Время для себя
Всего: 51 291 тема
Новые темы за сутки: 24 темы
- РетритыНет ответов
- Что можно попробовать новое, если совсем нет времени, но хочется отвлечься?6 ответов
- Магазины в Москве10 ответов
- icloud и почтаНет ответов
- Зачем в Москве столько тц?14 ответов
- Леди Баг и Супер - Кот чем закончился?4 ответа
- Чем разбавить краски для картин по номерам?5 ответов
- Ваши интересы15 ответов
- Интересная книга, но страшнаяНет ответов
- Ваши ощущения от посещения турецкого хамама, ну или Тунисского, Египетского8 ответов
Популярные темы за сутки: 8 тем
- В год кого вы родились?21 ответ
- Айфон 18 грядёт, хочу, аж трясёт17 ответов
- Стоит ли брать компьютер17 ответов
- Ваши интересы15 ответов
- Зачем в Москве столько тц?14 ответов
- Вы часто тут сидите?11 ответов
- Магазины в Москве10 ответов
- Ваши ощущения от посещения турецкого хамама, ну или Тунисского, Египетского8 ответов
- Что можно попробовать новое, если совсем нет времени, но хочется отвлечься?6 ответов
- Чем разбавить краски для картин по номерам?5 ответов
Следующая тема
Предыдущая тема
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 тоже помогите плиз #программирование