Главная страница
    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.038 c
3-1096973121
goldenmax
2004-10-05 14:45
2004.11.07
как сравнить в Query поле в таблице DBF с полем IB


14-1097728339
Dmitriy O.
2004-10-14 08:32
2004.11.07
Разработка ПО сторонними организациями.


1-1098360149
Максим
2004-10-21 16:02
2004.11.07
DLL&ModalForm - Возвращение значения от DLL


10-1058522278
VG
2003-07-18 13:57
2004.11.07
Свои курсоры и ActiveX


3-1097232652
SergP.
2004-10-08 14:50
2004.11.07
Строка подключения для FOX(Dbase) через Microsoft.Jet.OLEDB.4.0





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский