Текущий архив: 2006.04.30;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
