<VCL>
procedure TForm1.ButtonClick(sender: TObject);
begin
// Form2ÀÇ Panel1¿¡ ±×¸®µå°¡ Ç¥½ÃµË´Ï´Ù.
// ´ç¿¬È÷ Form1ÀÇ ±×¸®µå´Â »ç¶óÁý´Ï´Ù.
StringGrid1.Parent := Form2.Panel1;
end;
<FMX>
procedure TForm1.ButtonClick(sender: TObject);
begin
// Form2ÀÇ Panel1¿¡ ±×¸®µå°¡ Ç¥½ÃµË´Ï´Ù.
// ´ç¿¬È÷ Form1ÀÇ ±×¸®µå´Â »ç¶óÁý´Ï´Ù.
Form2.Panel1.AddObject(StringGrid1);
end;
2018-04-17 ¿ÀÈÄ 5:07:22
|