procedure ShowInControl(Source, Dest: TWinControl; X, Y: Integer);
begin
Source.Parent := Dest;
Source.Left := X;
Source.Top := Y;
Source.Visible := True;
end;
// Kullanımı:
{
Form2'yi Form1 içerisindeki Panel1 içerisinde gösterir.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowInControl(Form2, Panel1, 0, 0);
end;