当一个PANEL像工具栏一样浮动后关闭发生什么事件 我把一个panel弄成浮动的了,然后点panel右上角的X关闭后产生什么事件呢? 我想把它关闭后放到窗体上去,应该怎么做,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ONCLOSE事件中action := canone,然后再把它放在FORM上 不是窗体,我说的是关闭被拖出的panel时发生什么事件,没有onclose wywry(Wyatt) 能不能给一个例子啊,谢谢 楼主说得不清楚,所以别人也帮不了忙。我怎么就没见过Panel还有个右上角的X?先说说你怎么“把一个panel弄浮动了?”? "把一个panel弄浮动了"应该是指Dock,但关闭会发生什么事件,我就不懂了,关注。 就像楼上说的,将panel的DragKind属性设置为dkDock,DragMode 属性设置为dmAutomatic,然后像拖动工具栏一样把panel拉出来,就能看到右上角的X了,点击这个地方会关闭Panel,我想在点击这个X时将panel放回原来的位置 http://hubdog.csdn.net/Hubdog/dock.htm //... private FPanelWindowProc: TWndMethod; procedure PanelWindowProc(var Message: TMessage);//...const WM_DOCKSHOW = 45073; WM_DOCKCLOSE = 45067;procedure TForm1.PanelWindowProc(var Message: TMessage);begin case Message.Msg of WM_DOCKSHOW: ; WM_DOCKCLOSE: begin Panel1.Dock(Self, Rect(0, 0, Panel1.Width, Panel1.Height)); Panel1.Show; end; end; if Assigned(FPanelWindowProc) then FPanelWindowProc(Message);end;procedure TForm1.FormCreate(Sender: TObject);begin FPanelWindowProc := Panel1.WindowProc; Panel1.WindowProc := PanelWindowProc;end; 版本之间的异同,感兴趣的可以贴出来啊! 请问delphi里面有没有返回时间戳的函数? 这个是什么问题? IsEqual()这个函数在需要哪个文件 寻找合作伙伴用delphi开发 明天辞职,到新的单位去! 关于 2进制 文件的读写 和 图形的绘制 向各路高手请教~~ 我想做个从右向左滚动的广告条,以为很简单,但是就是一些细节问题搞得狂人莫名其妙。。。 利用dll實現窗体重用的問題 combobox的hint问题? 关于ShellTreeView1的显示限制问题?如何只让ShellTreeView1显示各盘符而不显示'我的电脑','控制面板'等 嵌入式汇编访问端口出错,请帮忙,多谢
private
FPanelWindowProc: TWndMethod;
procedure PanelWindowProc(var Message: TMessage);
//...const
WM_DOCKSHOW = 45073;
WM_DOCKCLOSE = 45067;procedure TForm1.PanelWindowProc(var Message: TMessage);
begin
case Message.Msg of
WM_DOCKSHOW: ;
WM_DOCKCLOSE:
begin
Panel1.Dock(Self, Rect(0, 0, Panel1.Width, Panel1.Height));
Panel1.Show;
end;
end;
if Assigned(FPanelWindowProc) then FPanelWindowProc(Message);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
FPanelWindowProc := Panel1.WindowProc;
Panel1.WindowProc := PanelWindowProc;
end;