MDI:显示子窗体的问题

Question

我的fsMDIForm主窗体上有一个panel,它的Align为alClinet,我要显示一个fsMDIChild窗体，但就是显示不出来，我的语句为：
procedure TMainForm.N14Click(Sender: TObject);
var
  StoreForm: TStoreForm;
begin
  StoreForm := TStoreForm.Create(self);
  StoreForm.Show;
end;我把Panel去了就显示出来了，但为了程序的美观，我不能去，大家帮忙想想办法吧！！

Answer 1

MDI主窗体不能放那些控件！放上去也处理不了时间！不知道怎么解决！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var bb:tform2;
begin
  bb:=tform2.create(self);
  bb.parent:=panel1;
  bb.Top:=0;
  bb.left:=0;
  bb.show;
  end;end.太容易了,只要加上PARENT就可以了......给分哦 ,呵呵

Answer 3

if not assigned(form2) then
application.createform(tform2,form2);

Answer 4

form2应该为fsnormalprocedure TForm1.Button1Click(Sender: TObject);
var bb:tform2;
begin
  bb:=tform2.create(self);
  bb.parent:=panel1;
  bb.Top:=0;
  bb.left:=0;
  bb.show;
  end;end.

Answer 5

to  hlddg(hlddg):
  我知道那样可以，但是那样子窗体不就跑出主窗体了吗？头不让！！！
  其实我在上面放了个Image,我其实就是想在主窗体上作个背景图，我试过直接放Image,但不知为什么，总和Coolbar之间有一条很大的空白。要不哪位高手告诉我怎么做个背景，感谢之至！！！！

Answer 6

http://expert.csdn.net/Expert/topic/1665/1665295.xml?temp=.8739893

Answer 7

下面的代码就可以:PROCEDURE TmainForm.ClientWndProc(VAR Message: TMessage);
VAR
MyDC : hDC;
Ro, Co : Word;
begin
with Message do
case Msg of
WM_ERASEBKGND:
begin
MyDC := TWMEraseBkGnd(Message).DC;
FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO
FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO
BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
Image1.Picture.Width, Image1.Picture.Height,
Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
Result := 1;
end;
else
Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;
end;
procedure TmainForm.FormCreate(Sender: TObject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
end;

Answer 8

procedure TForm1.FormCreate(Sender: TObject);
begin
   windows.SetParent(clienthandle,panel1.handle)
end;

Answer 9

1.关于MDI主窗体背景新解
  在Form中添加Image控件 
   设BMP图象 
   name为 IMG_BK 
   在Foem的Create事件中写入 
   Self.brush.bitmap:=img_bk.picture.bitmap;