Ссылка на форму

[bill]

Здравствуйте!
У меня такая проблема- я должен создать класс в котором будет форма на которой должен автоматически располагаться image. Собственно форма создается, но как получить ссылку на эту форму, чтобы на ней был image? Я делал вот так, но здесь гдето ошибка. Как мне ее исправить? Заранее Спасибо.

 
unit DopWindow3;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
 Forms,extctrls;
type trazmer=record
a,b,c,d,e,f,g:integer;
end;
type tdopwindow=class
procedure Iniciliazed(p:pointer);
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create;
destructor destroy;
published
{ Published declarations }
end;
var w:pointer;
implementation
constructor tdopwindow.Create;
begin
inherited;
end;
procedure tdopwindow.Iniciliazed(p:pointer);
var s:trazmer;
begin
s:=trazmer(p^);
With TForm.Create(nil) do
begin
parent:=nil;
name:='DopWindow'+inttostr(s.a);
w:=@(tcomponent(name));
left:=s.b;
top:=s.b;
width:=s.c;
height:=s.d;
show; visible:=true;
end;
with timage.Create(Tcomponent(w^)) do
begin
parent:=twincontrol(w^);
name:='image1';
left:=s.e;
top:=s.e;
width:=s.f;
height:=s.g;
visible:=true;
end;
end;
destructor tdopwindow.destroy;
begin
TForm(w^).Free;
inherited Destroy;
end;
end.

[kommunist]

так а что пишет какая ошибка - то

[mihali4]

Сделайте проще:
вот это

procedure tdopwindow.Iniciliazed(pointer);
var s:trazmer;
begin
s:=trazmer(p^);
With TForm.Create(nil) do

замените на

procedure tdopwindow.Iniciliazed(p:pointer);
var s:trazmer;
     dopf: TForm;
begin
s:=trazmer(p^);
dopf:=TForm.Create(nil);
With dopf do

и получите совершенно однозначный способ обращения ко вновь созданной форме.

[bill]

Сообщение от mihali4

Сделайте проще:
вот это
замените на...

Спасибо, чета не догадался сначала .
Но все же,как можно решить задачу моим способом(как присвоить image ссылку на вновь создаваемую форму, при этом зная лишь ее класс(Tform) и новое имя ее,которое я присваиваю ей при создании-т.е если у меня нет никакой переменной dopf)?

[mihali4]

зная лишь ее класс(Tform) и новое имя ее

Еще проще:
(Новое имя as Form)
Кстати, я именно это и подразумевал, когда сказал об однозначности...

[bill]

Сообщение от mihali4

Еще проще:
(Новое имя as Form)
Кстати, я именно это и подразумевал, когда сказал об однозначности...

Может я все таки что то делаю не так
ТО бишь если я нaпишу так то получу ошибку- wointer; .. begin ... w:=@(name as tform);// хотя вообще-то для подобных вещей надо все приводить к одному типу - вот о чем говорю:

 
for i:=1 to n do
if (Components[i] is TRadioButton) then
(Components[i] as TRadioButton).Checked := true; ...

А тут смысла приводить к близкордственному классу нет, т.к ошибка в любом случае возникнет.