Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизCircular class reference Найти похожие ветки
← →
Иван Шихалев (2001-12-17 19:17) [4]Проблема в том, что классы должны быть описаны в секции
interface
(кстати, доступ к приватным полям, вроде б, и не обсуждался), а циклические ссылки в этой секции категорически запрещены. Наиболее корректный способ:
unit Unit1;
interface
uses
<стандартный набор модулей>;
type
TForm1 = class(TForm)
fldForm2 :TForm;
procedure doSomeThing;
end;
implementation
uses
Unit2;
procedure TForm1.doSomeThing;
begin
(fldForm2 as TForm2).TForm2OnlyProperty := AnyValue;
fldForm2.TFormProperty := AnotherValue
end;
end.
И совершенно аналогично - Unit2, только единичку с двоечкой местами поменять.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.012 c