Допустить функцию к работе при условии - если один компонент видит другой , Допустить функцию к работе при условии - если один компонент видит другой

[SkAndriy]

Добрый день!

Созданы два простых компонента.
В первом есть поле, в которое можно выбрать из списка второй компонент.

Например:

TMyMajorComponent =(TComponent)
private
  FMyMinorComponent : TMyMinorComponent;
..........
 
............
 property MyMinorComponent : TMyMinorComponent read FMyMinorComponent write FMyMinorComponent;
 
Create TMyMajorComponent(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FMyMinorComponent := TMyMinorComponent.Creat(nil);
end;
 
где-нибудь есть функция расчета:
 
function TMyMajorComponent.GetDataElement(Index : Integer): Double;
begin
 где необходимо указать? что расчет проводится только при условии, что если поле MyMinorComponent в компоненте TMyMajorComponent заполнено "MyMinorComponent1" (не пустое!)
end;

Как это можно сделать?

Спасибо.
конструкция вначале функции типа "if not Assigned(FNativeOwner) then Exit" не проходит, расчет далее этой строки все равно проводится.

Сообщение отредактировано: SkAndriy - 16.09.10, 14:05

[leo]

Не перестаешь удивлять - с какой стати поле FMyMinorComponent будет пустым, если ты в конструкторе TMyMajorComponent его сам же и создаешь:

Цитата SkAndriy @ 16.09.10, 13:56

begin
 inherited Create(AOwner);
 FMyMinorComponent := TMyMinorComponent.Creat(nil); //!!! => Assigned
end;

[SkAndriy]

ошибку понял. спасибо