Formular auf PaintBox "einsperren" wie eine ChildForm

[Sharky]

Hai Jackie1983,

wenn Du anstelle einer PaintBox zum Beispiel ein TPanel verwendest sollte es reichen wenn Du das Panel der Form als .Parent zuweisst.

Delphi-Quellcode:

procedure TDemo_Form.Button1Click(Sender: TObject);
begin
  myForm := TForm.Create(Self);
  myForm.Parent := Panel1;
  myForm.Show;
end;

procedure TDemo_Form.Button2Click(Sender: TObject);
begin
  FreeAndNil(myForm);
end;

procedure TDemo_Form.FormDestroy(Sender: TObject);
begin
  if Assigned(myForm) then
  begin
    myForm.Free;
  end;
end;