關于delphi中窗口顯示位置的問題﹗我怎樣使窗口顯示在一個panel中﹐象MDI那休養﹖﹖

Question

Same the topic

Answer 1

看一看delphi6\demo\docking
哪里有非常漂亮的关于停靠的方法。

Answer 2

呵呵，摩托曾经把一个其他的程序窗体当作自己的子窗体～～～var
   h:thandle;
   rec:trect;
begin
   shellexecute(handle,'find','',nil,nil,SW_hide);
  //奇怪find时sw_hide不起作用！   repeat
     h:=findwindow( nil,'搜索结果');
     if h<>0 then
     showwindow(h,SW_HIDE);
   until h<>0;
   windows.SetParent(h,ScrollBox1.Handle);
   GetWindowRect(h,rec);
   SetWindowPos(h,HWND_TOP,0,-5-(GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CYBORDER)),ScrollBox1.Width,ScrollBox1.Height,SWP_NOSIZE or SWP_SHOWWINDOW);   ScrollBox1.HorzScrollBar.Range :=rec.Right -rec.Left ;
   ScrollBox1.VertScrollBar.Range :=rec.Bottom -rec.Top ;
   
请参考：
http://expert.csdn.net/Expert/topic/1101/1101062.xml?temp=.7426264