| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Parenт для формы [D5]

_Iton_ ©   (2006-04-14 11:35:00) 

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

---

_Iton_   (2006-04-14 13:40:00) [1]

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

---

Ega23   (2006-04-14 13:34:00) [2]


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


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

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

---

_Iton_   (2006-04-14 13:32:00) [3]

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

mergeform(panel1,form2,alleft,true);

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

---

Ega23   (2006-04-14 11:44:00) [4]

Из 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;


---

Наверх