Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
1-1098715549
Kam4atkin
2004-10-25 18:45
2004.11.07
Как правильно скопировать русский текст в буфер?


3-1097356478
GanibalLector
2004-10-10 01:14
2004.11.07
DBGridEh & Footer


14-1098206590
VID
2004-10-19 21:23
2004.11.07
Подмосковье: Подольск. Как там живётся ?


14-1098131386
Piter
2004-10-19 00:29
2004.11.07
Можно отправить SMS на сотовые в Латвии из интернета?


14-1098428505
}|{yk
2004-10-22 11:01
2004.11.07
Украинское проклятье Брюгге





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