标题栏上放控件(如:按钮)

[王集鹄]

不小心看到有个窗体的标题栏上放了按钮
怎么做呀??????????????????????????

[Jneu]

同意cobi！

[tikkypeng]

窗体无边～随心所欲的放控件模拟标题栏～～然后～～

procedure TForm1.Panel4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Panel4.perform(WM_SysCommand, SC_DragMove, 0);
end;

在你的伪造的那个标题栏的ＭｏｕｓｅＤｏｗ事件里面～向系统发送移动窗体的命令～～
呵呵～～试一下你就知道了～～

[cobi]

tikkypeng(一两狂死郎之天衣有缝)的方法是很不错！但是要实现一些美观的界面时，用canvas画应该得不出效果吧，不过能领略到这样的代码，应当谢谢你！

[王集鹄]

to tikkypeng(一两狂死郎之天衣有缝)　
至少也值两个钱

//小小改动
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.perform(WM_SysCommand, SC_MOVE + 1, 0);
//^^^^^^^^^^^
end;

[王集鹄]

//在小小改动
//再小小改动
procedure TForm1.WinControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TWinControl(Sender).Perform(WM_SysCommand, SC_MOVE + 1, 0);
//^^^^^^^^^^^^^^^^^^
end;
//赋给谁(TWinControl)都行

[xzm2000]

给个mail，我发个程序给你，是我自己做的平面程序，模仿标题栏，比标准的好看多了，而且在失去焦点的时候标题栏和文字都会变色

[王集鹄]

看来要晚点给分罗
让大家也共享这份快乐

[王集鹄]

to xzm2000(不不)(每天都要进步)
先谢了
[e-mail]
qq:45531143

[delphi_user]

我觉得还是模拟标题栏的做法比较好。

[zfmich]

整个窗体是一个图片，然后在标题栏上面放几个小图片

[王集鹄]

to tikkypeng(一两狂死郎之天衣有缝)
请进:
http://www.csdn.net/expert/topic/152/152956.shtm

[largewang]

?

[liang_z]

在这个网站上第一行就能看到一个例子！
里面还有很多好东东啊！
你学DELPHI不可不去这个网站啊
DELPHI盒子:
http://mantousoft.51.net/indexs.php

[liang_z]

看了好东东不要忘了给我加分^v^

[combsky]

好

[kevin_gao]

一般是用图片来做的吧？

[王集鹄]

to liang_z:
也谢罗!

[xtky_limi]

旁听

[王集鹄]

game over

[王集鹄]

再没有人看
我就结了!