Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

вопрос про объекты   Найти похожие ветки 

 
PURGEN   (2004-10-24 08:30) [0]

Подскажите функцию для определения: СУЩЕСТВУЕТ ли объект с данным имененм или НЕТ...


 
Polevi ©   (2004-10-24 09:23) [1]

что есть объект в твоем понимании


 
PURGEN   (2004-10-24 09:32) [2]

Например кнопочка на форме...


 
begin...end ©   (2004-10-24 09:38) [3]


> [2] PURGEN   (24.10.04 09:32)

1. Посмотреть, есть ли кнопочка в массиве TForm.Components.
2. Вызвать TForm.FindComponent(). Если результат - NIL, то кнопочки нет.

P.S. Это справедливо, если при создании кнопочки её владельцем назначается форма.


 
PURGEN   (2004-10-24 09:41) [4]

спасибо...


 
Anatoly Podgoretsky ©   (2004-10-24 10:15) [5]

begin...end ©   (24.10.04 09:38) [3]
Это неверно по сути, нужен Controls, а не Components


 
begin...end ©   (2004-10-24 11:18) [6]


> [5] Anatoly Podgoretsky ©   (24.10.04 10:15)

Что именно неверно? Controls содержит список всех дочерних окон, а Components - список всех компонентов, владельцем которых является данный компонент. Т.е. я так понимаю, что в списке Controls будут окна, Parent"ом которых является, в данном случае, форма. Но в [1] я уточнил, что писал про Owner"а.


 
Anatoly Podgoretsky ©   (2004-10-24 11:27) [7]

btn := TButton.Create(nil); или btn := TButton.Create(Application);

btn.Parent := Form1;

и где твой Components
А в Controls все органы на форме.


 
begin...end ©   (2004-10-24 11:30) [8]


> [7] Anatoly Podgoretsky ©   (24.10.04 11:27)


> и где твой Components

В TApplication. А где будет Ваш Controls, если не назначить Parent"а? ;-)


 
Anatoly Podgoretsky ©   (2004-10-24 11:32) [9]

А где здесь Аpplication btn := TButton.Create(nil);

Ну если ты начал искать оправдания, но нам говорить не о чем.


 
begin...end ©   (2004-10-24 11:40) [10]


> [9] Anatoly Podgoretsky ©   (24.10.04 11:32)


> А где здесь Аpplication btn := TButton.Create(nil);

А здесь - нигде.

> Ну если ты начал искать оправдания, но нам говорить не о чем.

Ничего я не начал; я не спорю, что Ваш ответ правилен, а просто говорю, что правилен и мой ответ, если кнопку создавать соответствующим образом.


 
Anatoly Podgoretsky ©   (2004-10-24 12:57) [11]

Нет ты именно споришь, невзирая на приведеный код. Пожетому твой ответ не правильный, код для того и приведен, чтобы ты в этом и убедился.

Тебе бы посмотреть мультик "Тайна третье планеты"


 
begin...end ©   (2004-10-24 13:36) [12]


> [11] Anatoly Podgoretsky ©   (24.10.04 12:57)


> Нет ты именно споришь

Уж спорю я или нет, - мне, наверное, виднее. Я даже написал в [10]: я не спорю.

> невзирая на приведеный код

Вот Вам код:

btn := TButton.Create(что угодно);
btn.Parent := Panel1;


Panel1 находится на форме Form1. Будет ли btn в списке Form1.Controls? Нет. Так что Ваш ответ - тоже не панацея.
А если вписать Form1 вместо что угодно, то btn можно будет найти в Form1.Components.

> твой ответ не правильный

Мой ответ [3] правильный, потому что там указано, как нужно создавать кнопку, чтобы потом можно было найти её так, как я написал.

> Тебе бы посмотреть мультик "Тайна третье планеты"

В первый раз слышу, а про что там?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.05 c
1-1098673588
Wood
2004-10-25 07:06
2004.11.07
Программное переключение


4-1096654682
Ваня
2004-10-01 22:18
2004.11.07
Как определить Enabled или Disabled элемент на чужой форме?


14-1097581200
Koala
2004-10-12 15:40
2004.11.07
3D игра в 96 kb - как вам???


3-1097440728
Morrison
2004-10-11 00:38
2004.11.07
SQL: Как переименовать имя поля?


3-1097500697
starik30
2004-10-11 17:18
2004.11.07
Запрос с union





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский