Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c