من یک ActiveX Form دارم که روش یک کلید هستش. وقتی این کلید رو می زنم یک TForm دیگه رو می سازم و نشونش می دم:
unit main;
uses form1;
.....
procedure TActiveForm1.Button1click(sender:TOBject);
begin
Form1:=TForm1.Create(self);
Form1.Show;
end;
حالا می خوام از توی این فرم دومی به آبجکت های فرم اصلی یعنی TActiveForm دسترسی داشته باشم. برای این کار می نویسم:
unit submain;
uses main;
.....
var ActiveForm1:TActiveForm1;
begin
ActiveForm1.Button1.Visible:=False;
end;
ولی این جواب نمی ده. خوب مشکل چیه؟ توجه کنید که نباید از ActiveForm1:=TActiveForm1.Create(self) استفاده کنم چون در اینصورت یک آبجکت جدید ساخته میشه در حالیکه من می خوام به همون نمونه اصلی TActiveForm1 دسترسی داشته باشم. کسی راه حلی داره؟