08/04/04 09:04:34
ごめん>>220はオーナーじゃなくて親だった。
procedure SetParentFromForm(dst,src:TWinControl );
var i:Integer;
begin
for i:=src.ControlCount-1 Downto 0 do
src.Controls[i].Parent:=dst;
end;
という関数を作って、
SetParentFromForm(Panel1,Form2);
のように行う
切り替える時は、
SetParentFromForm(Form2,Panel1);
として戻してやる。
オーナーが切り替わってるだけだから、ボタン類は元のフォームのイベントとして呼ばれる