Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
ВнизРодительские и дочерние классы Найти похожие ветки
← →
Mild (2003-09-17 19:16) [0]Есть унаследованный класс, допустим так
TForm
TForm2
TForm3
......
TForm20
Как можно программным путем получить имена классов всех предков TForm20, начиная от TForm19, заканчивая TForm
← →
jack128 (2003-09-17 19:20) [1]а : Tformclass;
begin
a := Tform20;
while a <> Tform do
begin
Memo1.lines.Add(a.ClassName);
a := a.ParentClass;
end;
end;
← →
Skier (2003-09-17 19:20) [2]см. TObject.ClassParent
← →
jack128 (2003-09-17 19:23) [3]Забыл, там еще привдение типов дабавить нужно.Или a : Tclass;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c