O ooo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #1 我想在主窗体的一个panel上做一个浮动窗体，也就是说，在平时 该窗体是内嵌在panel中在必要时它可从panel中浮动出来。
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #2 FormCreate中: FloatWindow.Parent := Panel1; 必要时: P: TPoint; SetWindowPos(FloatWindow.Handle, HWND_TOP, P.X, P.Y, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE);
FormCreate中: FloatWindow.Parent := Panel1; 必要时: P: TPoint; SetWindowPos(FloatWindow.Handle, HWND_TOP, P.X, P.Y, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE);
L lczhuohuo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #3 你的意思是说,像delphi的有些部分一样吗? 使用coolbar就行了
A autumn Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #4 http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=212950
O ooo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #5 xwolf,说的在详细点,我也粗浅的知道用这个 但我不知道SetWindowPos(FloatWindow.Handle, HWND_TOP, P.X, P.Y, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE);怎么用
xwolf,说的在详细点,我也粗浅的知道用这个 但我不知道SetWindowPos(FloatWindow.Handle, HWND_TOP, P.X, P.Y, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE);怎么用
沈 沈前卫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #6 设置Panel.DockSite:=True; 设置FloatWindow.DragKind:=dkDock; FloatWindow.DragMode:=dmAutomatic; 这样就可以了，你可以拖动 FloatWindow防到Panel,也可Drag out the panel.
设置Panel.DockSite:=True; 设置FloatWindow.DragKind:=dkDock; FloatWindow.DragMode:=dmAutomatic; 这样就可以了，你可以拖动 FloatWindow防到Panel,也可Drag out the panel.
F Fudei Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #8 嵌入效果？？？？ FloatWindow.Parent := Panel1; Floatwindow.Align := alClient;
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #9 procedure TForm1.FormCreate(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.Parent := Panel1; Form2.Top := 0; Form2.Left := 0; Form2.Height := Panel1.ClientHeight; Form2.Width := Panel1.ClientWidth; Form2.Show; end; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Self; SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE); end;
procedure TForm1.FormCreate(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.Parent := Panel1; Form2.Top := 0; Form2.Left := 0; Form2.Height := Panel1.ClientHeight; Form2.Width := Panel1.ClientWidth; Form2.Show; end; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Parent := Self; SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0 , SWP_SHOWWINDOW or SWP_NOSIZE); end;
左 左轻侯 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-29 #10 在《Delphi4从入门到精通上》有这个例子，不用api，Delphi自己可以搞定。
H huizhang Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-30 #11 什么意思内嵌、浮动？？？ 是不是指三维效果？？？
O ooo Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-11 #13 我的panel上有stringgrid在panel上做浮动窗体，但每次浮动窗体到panel 后，窗体上总有一条空，且窗体不能移出来
