Как вставить одну форму в другую ?

← →
ЮРИЙ_К © (2003-03-21 14:32) [0]

Подскажите, магистры, как вызвать из главной формы другую, чтобы она открылась на панели , находящейся в главной форме, как все-равно это не форма..., т.е. она влилась в главную без своего капшена???

← →
stone © (2003-03-21 14:50) [1]

Есть такое свойство - Parent

← →
ЮРИЙ_К © (2003-03-21 14:56) [2]

Ну слыхал, а в какое место его прилепить?
MainForm.Button1Click
???
Form1 := TForm1.Create(????)
Form1Show;
/..
...
???

← →
Silver_ (2003-03-21 15:02) [3]

а Фрейм тебя не устроит

← →
Leran2002 © (2003-03-21 15:11) [4]

Еще есть TNotebook - просто и сердито... :))

← →
ЮРИЙ_К © (2003-03-24 09:58) [5]

> Leran2002
Это все хорошо. Только задача заключается в том, что-бы показать форму а на ней программно формируются Edit1, Label и т.д. Сколько - не известно. Не знаю как их потом убирать, шоб повторно нажав на формирование - заново их нарисовать. А вызвав отдельную форму, меня-бы устроило, только вклеить ее нужно красиво

← →
rdm © (2003-03-24 10:00) [6]

Можно ActiveX юзать, но геморно будет.
Лучше используй фреймы

В Unit1: TForm1, на форме панель Panel1

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm2 = class(TForm) Panel1: TPanel; Button1: TButton; protected procedure Loaded; override; procedure CreateParams(var Params: TCreateParams); override; end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} { TForm2 } procedure TForm2.CreateParams(var Params: TCreateParams); begin Params.Style := WS_BORDER or WS_VISIBLE or WS_CHILD; inherited CreateParams(Params); end; procedure TForm2.Loaded; begin inherited Loaded; BorderIcons := []; BorderStyle := bsNone; Parent := Form1.Panel1; Visible := True; Align := alClient; end;

> > Leran2002
> Это все хорошо. Только задача заключается в том, что-бы
> показать форму а на ней программно формируются Edit1, Label
> и т.д. Сколько - не известно. Не знаю как их потом убирать,
> шоб повторно нажав на формирование - заново их нарисовать.
> А вызвав отдельную форму, меня-бы устроило, только вклеить
> ее нужно красиво

ну так создавай не форму, а панель

Procedure TMainform.CreatePanel_1;
begin
//вместо многоточия поставь то чтто нужно
with TButton.Create( Self.MainPanel) do
Left:=...
Width:=...
Name:=...
Caption:=...
Parent:=Self.MainPanel; end;
with TEdit.Create( Self.MainPanel) do
Left:=...
Width:=...
Text:=...
Name:=...
Parent:=Self.MainPanel;
end;
...
end;

Procedure TMainform.DestroyPanel;
var I:Integer;
begin
while Self.MainPanel.ComponentCount>0 do
Self.MainPanel.Components[0].Free;
end;
end;

Вроде способ нашел, да не вроде, а нашел, теперь перестали формироваться компоненты TEdit (см. HELP! перестало работать два в одном) Не пойму где грабли

Как вставить одну форму в другую ? Найти похожие ветки