Title: make a child form without MDI?
uses
Unit2; { 2. Form }
procedure TForm1.Button1Click(Sender: TObject);
begin
{
CreateParented creates and initializes a control as the child of a
specified (non-VCL) container.
Die Methode CreateParented erzeugt und initialisiert ein Steuerelement
als untergeordnetes Objekt des angegebenen (Nicht-VCL-) Fensters.
}
Form2 := TForm2.CreateParented(Form1.Handle);
// show Form2
Form2.Show;
// make Form2 active
SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Form2.Close;
end;