//---实现: p是共享内存结构,p^._Handle是A进程的Panel句柄---//
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited Createparams(params);
if Assigned(p) then
begin
params.Style:=WS_CHILD or WS_CLIPSIBLINGS;
Params.WndParent := p^._Handle;
end;
end;