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

Вниз

Подскажите!   Найти похожие ветки 

 
Le!   (2003-02-10 08:11) [0]

Недавно наткнулся на такой пример:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = "MyEdit";
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;
Он порождает 20 Edit"оф. Вопрос: почему таким способом нельзя сделать несколько панелей, да и других компонентов?


 
MBo   (2003-02-10 08:13) [1]

1) Можно хоть панелей, хоть чего.
2) Пример плохой - нелепо FindComponent делать
3) http://delphi.vitpc.com/helloworld/runtime_comp.htm


 
anbezr   (2003-02-10 09:19) [2]

> 2) Пример плохой - нелепо FindComponent делать
а что же тогда использовать - как еще обратиться к компоненту по имени, хранящемуся в string


 
MBo   (2003-02-10 09:25) [3]

>anbezr
Если ты его только что создал, то известна ссылка на него, зачем же копаться во всех компонентах?


 
Anatoly Podgoretsky   (2003-02-10 09:31) [4]

anbezr (10.02.03 09:19)
Изучаем with или в крайнем случае создаем временную переменную.


 
anbezr   (2003-02-10 09:32) [5]

Да нет - речь идет о периодическом просмотре всех компоентов с целью выделения из них, например, TLabel и модифицирования некоторых его полей. понятно, что в данном случае необходим массив-список компонент, удовлетворяющих к-л условию. Идеальным кажется array of TComponent, но возникила и задача определния адреса объекта по имени. ничего другово, окромя FindConponent я не нашел.


 
MBo   (2003-02-10 09:39) [6]

FindComponent разумно использовать потом, в процессе работы, а при создании объекта - ни к чему.
З.Ы. Ссылку изучил?


 
anbezr   (2003-02-10 09:45) [7]

Ссылку изучил. надо искать именно в runtime




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

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

Наверх





Память: 0.45 MB
Время: 0.009 c
6-53144
lefan
2002-12-26 08:10
2003.02.17
If-Modified-Since


3-52766
AALLEEXX
2003-01-23 07:48
2003.02.17
DB TREEVIEW


1-53084
oomneeq
2003-02-06 13:41
2003.02.17
Stdcall - необходимость его использования


3-52718
Ina
2003-01-30 08:19
2003.02.17
отключить индекс FoxPro 2.6


1-52914
Sedov Vitalik
2003-02-08 13:44
2003.02.17
Memo в FastReport





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