![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Классы
volkafff © (2011-05-16 21:51:00)Здравствуйте уважаемые программисты! Очень прошу ответить на мои вопросы,а не посылать читать книги.)))
1)На экране есть панель. На ней компоненты.Пользователь кликает по нескольким из них и они "перелетают" в центр экрана. Компонентов в центре может быть очень много, классов-шесть. Мне нужно написать чтото-такое:
"Если среди компонентов(только тех,которые в центре),есть компонент класса Х и компонент класса У, тогда сделать ..."
2)Все компоненты в центре должны как-то получить идентификаторы,чтобы я мог сравнивать свойства так:
"компонент А1.свойство прозрачность:=компонент А2.свойство прозрачность + компонент ВВ5.свойство прозрачность..." Напомню,компонентов может быть много,даже слишком)))
Очень хотелось бы получить ответы на вопросы,советы и рекомендации.
Заранее спасибо!
Anatoly Podgoretsky (2011-05-17 19:11:00) [1]Книги и читать.
Ega23 (2011-05-17 16:50:00) [2]
> компоненты,image
акваланги, Гагарин.
volkafff (2011-05-17 16:22:00) [3]компоненты,image
Ega23 (2011-05-17 08:01:00) [4]
> Controls, not Components!
> Это я о переборе в списке. Список компонентов может быть
> пустым, но список контролов пустым быть не может, если контрол
> виден и по нему можно кликнуть мышкой.
Я специально писалСписокКомпонентовКоторыеВЦентре, т.к. я не в курсе, что имел автор ввиду: контролы или компоненты.
Германн (2011-05-17 02:20:00) [5]
> Virgo_Style © (16.05.11 23:42) [2]
> Ega23 © (16.05.11 23:46) [3]
>
>
Controls, not Components!
Это я о переборе в списке. Список компонентов может быть пустым, но список контролов пустым быть не может, если контрол виден и по нему можно кликнуть мышкой.
Ega23 (2011-05-16 23:46:00) [6]
> должны как-то получить идентификаторы
У компонента есть свойство Tag.
У контрола есть свойство Contols и ControlCount
В справке есть справка по этим вопросам.
> "Если среди компонентов(только тех,которые в центре),есть
> компонент класса Х и компонент класса У
var
b: byte;
i: Integer;
begin
b := 0;
for i := 0 to СписокКомпонентовКоторыеВЦентре.Count - 1 do
begin
if СписокКомпонентовКоторыеВЦентре[i] is КомпонентКлассаХ then
b := b or 1
else
if СписокКомпонентовКоторыеВЦентре[i] is КомпонентКлассаY then
b := b or 2;
end;
if b = 3 then
ВСпискеКомпонентовКоторыеВЦентреПрисутствуютКомпонентКлассаХИКомпонентКлассаY
end;
Virgo_Style (2011-05-16 23:42:00) [7]is, Components, ComponentCount
Jeer (2011-05-16 23:40:00) [8]Заранее пожалуйста.