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

Вниз

ООП - достучаться до небес!   Найти похожие ветки 

 
MaXie   (2002-12-15 11:55) [0]

В процедуру передаются элементы классов TEdit, TLabel, TPanel, в виде массива элементов класса TControl. Как в этой процедуре "достучаться" до свойства ControlCount панели Panel1, которая вместе с другими элементами передается в процедуру?


 
ppcat   (2002-12-15 12:00) [1]

var
panel: TPanel;
cc: integer;
begin
panel:= TPanel(array[2]); //если он в массиве 3-й по счету
cc:= panel.ControlCount;
...
end;


 
icWasya   (2002-12-15 12:01) [2]

if M[I] is TPanel then with TPanel(M[I]) do
begin
for J:=0 to Controlcount-1 do
begin
.....
end
end
if M[I] is TLabel then with TLabel(M[I]) do
begin
ShowMessage(Caption)
end



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

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

Наверх





Память: 0.54 MB
Время: 0.029 c
1-86012
Анатолий
2002-12-16 14:29
2002.12.26
Нужна помощь


1-85886
rooman1
2002-12-15 22:57
2002.12.26
кто нибуть подскажет


1-85961
Cherepovets
2002-12-15 16:57
2002.12.26
Файл


14-86177
Separator
2002-12-06 11:10
2002.12.26
Поиск в массиве.


1-85967
PVOzerski
2002-12-15 11:37
2002.12.26
Нужен совет по алгоритму





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