У меня есть динамически создаваемая форма, пусть будет
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Unit2
...
type
TFrm2 = class(TForm)
public
SomeProc;
...
procedure OpenFrm2;
var
Frm2: TFrm2;
begin
Frm2:= TFrm2.Create(Application);
try
Frm2.Showmodal;
finally
Frm2.Free;
end;
end;
Вызываю ее из 1-й формы простым
OpenFrm2 (все лишнее убрал, код максимально упростил)
В этом же юните, где определена TFrm2 (или в другом, не важно), определен класс
1.
2.
3.
4.
5.
6.
7.
TMyclass = class
private
FSomeField: string;
public
constructor Create(AOwner: TObject);
Destructor Destroy; override;
end;
Создаю объект этого из юнита, где определен TFrm2:
1.
2.
3.
4.
5.
var
Myclass: TMyclass;
begin
Myclass:= TMyclass.Create(Self); // т.е. передаю в качестве владельца форму Frm2, правильно?
end;
Так вот вопрос, как из созданного объекта обратиться к методам (процедурам) TFrm2?
(Self as TFrm2).SomeProc - вообще не то, но мысль, думаю, довел.
Направьте, плз, где смотреть, куда читать или если не сложно - лучше пример.
Спасибо!
