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

Вниз

Что за бред? С каких пор у Tcontrol нет св-ва Caption?   Найти похожие ветки 

 
YuN   (2004-01-05 02:50) [0]

Хочу скинуть в файл имена на форме. Пишу:
procedure Tform1.savenames(fname:string);
var i:integer;
f:system.text;
t:Tcontrol;
begin
assignfile(f,fname); rewrite(f);
for I := 0 to ComponentCount -1 do
if Components[I] is TControl then begin
t:=Components[I] as Tcontrol;
writeln("name",inttostr(i),"=",t.Caption);
end;
closefile(f);
end;

Получаю от компилера "Undeclared identifier "Caption""


 
wnew   (2004-01-05 04:34) [1]

У TControl свойство "Caption" - protected, вероятно компонент, на который идёт ссылка описывается в другом unit.


 
YuN   (2004-01-05 05:23) [2]

То-то и оно, что в этом. У меня вообще один unit и одна форма на всю программу.


 
Думкин   (2004-01-05 07:13) [3]

> [2] YuN (05.01.04 05:23)

При чем тут твой юнит? У тебя работа идет с TControl - а у него это свойство невидимо в другом юните ибо ответ[1].
Можно обойти:

t : TControl;

TMagic=class(TControl)
public
property Caption;
end;

TTMagic(t).Caption := "sdgfs";


 
icWasya   (2004-01-05 09:39) [4]

TMagic можно определить по-другому. Для доступа ко всем Protected элементам в Delphi есть специальный синтаксис:


var
t : TControl;

type
TMagic=class(TControl) ;// вот именно так

TMagic(t).Caption := "sdgfs";


теперь через TMagic можно добраться до всех Protected членов TControl



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

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

Наверх





Память: 0.45 MB
Время: 0.01 c
1-49570
raining day
2004-01-05 21:07
2004.01.16
Не могу нормально записать инфу в реестр


8-49648
ChekhlatyAndrew
2003-09-15 20:29
2004.01.16
масштабирование и конвертирование в ч б


3-49445
Гоша
2003-12-18 10:24
2004.01.16
не могу из Win2K работать с базами расположенными на сервере


3-49415
safo
2003-12-19 10:29
2004.01.16
компоненты zeos


14-49744
JibSkeart
2003-12-24 15:24
2004.01.16
Гыы-гыы генератор киборгов :))





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