如何在标题栏上加图像和按钮？？

Question

我想把FORM标提三个按钮（大小化，关闭）换成图像按钮；标题蓝色处换成图片，怎么处理……？？顺便留下你的QQ或者EMAIL，急，谢谢

Answer 1

不好写....
这样行不行，呵呵form1.borderstyle:=bsnone;
然后，再放一个PANEL，align:=altop;
在PANEL上放按钮等等，自己画了，这个就当标题栏好了

Answer 2

然后映射 PANEL 的 Clicked 事件到 window 消息 WM_NCHITTEST

Answer 3

谢谢，我尝试下，能不能留下你们的QQ，E-MAIL：再次谢谢

Answer 4

[email protected]
共同进步！

Answer 5

你改变窗口为无标题的，然后就可以随心所欲的自己想怎么弄就怎么弄了
然后把窗体的拖动模拟成WM_NCHITTEST事件就可以模拟出标题栏的拖动了

Answer 6

窗体是能移动了
自己做的标题栏还是不能移动，继续努力中……在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序部分加入以下代码：procedure TForm1.wmnchittest(var msg:twmnchittest);begininherited;if (htclient=msg.result) then msg.result:=htcaption;end;

Answer 7

我来帮你改一改就行了。//拖动标题栏，且让拖动客户区无效
//标题栏是iamge1procedure TForm1.wmnchittest(var msg:twmnchittest);
var
  pt:tpoint;
begin
  inherited;
  pt.X:=M.XPos;
  pt.Y:=M.YPos;
  pt:=ScreenToClient(pt);
  if ptInRect(image1.ClientRect,pt) then
    m.result :=htcaption;
end;