Parenт для формы

← →
_Iton_ (2006-04-14 11:35) [0]

На главной форме есть Панельь (ТПанель),есть еще неколько формочек. мне необходимо что-бы по клике на кнопку эти формы со всеми своими компонентами отобразились на этой панельке (без кнопок закрыть, развернуть...).
Видимо это надо сделать через свойство Parent у остальных форм.
но просто заменив его я получаю Access violation
form2.parent:=form1.panel;

← →
Ega23 © (2006-04-14 11:44) [1]

Из RxLib
procedure MergeForm(AControl: TWinControl; AForm: TForm; Align: TAlign; Show: Boolean); var R: TRect; AutoScroll: Boolean; begin AutoScroll := AForm.AutoScroll; AForm.Hide; THack(AForm).DestroyHandle; with AForm do begin BorderStyle := bsNone; BorderIcons := []; Parent := AControl; end; AControl.DisableAlign; try if Align <> alNone then AForm.Align := Align else begin R := AControl.ClientRect; AForm.SetBounds(R.Left + AForm.Left, R.Top + AForm.Top, AForm.Width, AForm.Height); end; AForm.AutoScroll := AutoScroll; AForm.Visible := Show; finally AControl.EnableAlign; end; end;

← →
_Iton_ (2006-04-14 13:32) [2]

попробовал так:
form2 -дочерняя
пенль - куда надо повесить доч. форму

mergeform(panel1,form2,alleft,true);

и неработает :(
Еррор реадинг...
может надо какието свойства убрать у форм или из авто создания убрать?

← →
Ega23 © (2006-04-14 13:34) [3]

FInfoTool:=TFInfoTool.CreateForm(Application,SessInfo); FInfoTool.Prepare; MergeForm(pnAnalysis,FInfoTool,alClient,True);

Вроде всё работает.

Где ошибка-то вылезает?

← →
_Iton_ (2006-04-14 13:40) [4]

все.спасибо!!!
разобрался

Parenт для формы Найти похожие ветки