如何在真正的标题栏上画按钮并响应事件？　(100分)

Cursor · 2000-09-22

如何在真正的标题栏上画按钮并响应事件？　弄个假标题栏的方法请不要说了，要做得和 OICQ上的最小化按钮、READBOOK　上的满屏按钮那样。请给出完整的源程序！！！

icewang · 2000-09-22

   将Form的最后一个属性WindowState设置一下。

wjiachun · 2000-09-22

wzs的盗版  6.在标题栏处画VCL控件(一行解决问题!!!) ----------------------------------------------    在 form 的onpaint 事件中    控件.pointto(getdc(0),left,top);

Bcbhua · 2000-09-22

不是吧，要想在标题栏画东西应该响应WM_NCPAINT这个消息！

Cursor · 2000-09-23

icewang:不明白我的意思？ wjiachun:如何在标题栏（最大化、最小化、关闭按钮的旁边）上画按钮？有pointto这个 　　　　函数吗？ Bcbhua:是响应按钮的OnMouseOver/Click事件。

emi · 2000-09-23

大家在使用某些软件的过程中，有没有注意到有些软件有一些很有趣的东西。比如说在 主窗口的标题栏上居然有一个按钮。在Internet中随处可见这样的小控件。按钮怎么可 以加入到非客户区(Client)呢？    在这里，最关键的一点就是，大家不要被传统知识误导：真的认为它是一个按钮。有 名柄（handle)的控件当然不能放在标题栏上了。有经验的程序员用Spy++跟踪一下的话， 马上就会发现其中的秘密。它并不是一个按钮，只不过是处理成按钮的样子罢了。 既然知道了所以然，那么我们为什么不能自己来做一个呢，当然没问题，下面我们就用 Delphi来实现它，讲注意我的注解。 具体实例之前，我们应该知道几个关于标题栏的重要的消息： WM_NCPAINT：重画标题栏消息。我们必须截住它，可以在这里重画按钮； WM_NCLBUTTONDOWN：在标题栏上按下鼠标左键消息。我们可以截住它，在标题栏上画出 按钮按下的样子，并且可以在其中进行自已的单击事件的处理，使得它像一个按钮； WM_NCLBUTTONUP：在标题栏上释放鼠标左键消息。我们可以截住它，在标题栏上画出按 钮弹起的样子； WM_NCLBUTTONDBLCLK：在标题栏上双击鼠标左键消息。我们可以截住它，当在按钮区域 双击时，我们就该使其无效，从而避免窗体执行最大化和还原操作。 WM_NCRBUTTONDOWN：在标题栏上按下鼠标右键消息。我们可以截住它，当在按钮区域 双击时，我们就该使其无效，从而避免弹出窗体按制菜单。 WM_NCMOUSEMOVE：在标题栏上移动鼠标消息。我们可以截住它，当鼠标移出按钮区域时， 我们就必须画出按钮没有被按下，即凸起时的样子。 WM_NCACTIVATE：当标题栏在激活与非激活之间切换时收到该消息。我们可以截住它， 当该窗口处理激活状态时，我们可以做一些事情，比如说将我们的标题栏按钮上的字体 变灰或变黑来指示该窗口的当前状态。下面我没有加入该项功能，如果大家感兴趣的话， 可以自己完成。 (大家从这里可以发现，标题栏的消息都是WM_NC开头的) 例子： unit main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Menus; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     CBBtnRect: TRect;   // Caption Bar Button Rectangle     CBBtnFont: TFont;   // Caption Bar Button Font     procedure DrawCaptionBtn(uEdge: UINT);     // 当在标题栏上按下鼠标左按钮时进入该过程 procedure WMNcLButtonDown(var m: TMessage); message WM_NCLBUTTONDOWN;     // 当在标题栏上放开鼠标左按钮时进入该过程 procedure WMNcLButtonUp(var m: TMessage); message WM_NCLBUTTONUP;     // 当在标题栏上移动鼠标时进入该过程 procedure WMNcMouseMove(var m: TMessage); message WM_NCMOUSEMOVE;     // 当在标题栏上双击鼠标左铵钮时进入该过程 procedure WMNcLButtonDBLClk (var m: TMessage); message WM_NCLBUTTONDBLCLK;     // 当在标题栏上按下鼠标右按钮时进入该过程 procedure WMNcRButtonDown(var m: TMessage); message WM_NCRBUTTONDOWN;     // 当画标题栏时进入该过程 procedure WMNcPaint(var m: TMessage); message WM_NCPAINT;     // 当标题栏在激活与非激活之间切换时进入该过程 procedure WMNcActivate(var m: TMessage); message WM_NCACTIVATE;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DrawCaptionBtn(uEdge: UINT); var    hCaptionDC: HDC; // 标题条Device Context    hOldFont: HFONT; // 原来的字体    r: TRect; begin      hCaptionDC := GetWindowDC(Self.Handle);  // 注意不能用GetDC,那样的话，将得不到标题栏  // 的设备上下文      //画按钮的样子，如果uEdge=EDGE_RAIS， 则画出的样子为凸起；如果 //uEdge=EDGE_SUNKEN，则画出的样子为凹下。      DrawEdge(hCaptionDC, CBBtnRect, uEdge, BF_RECT or BF_MIDDLE or             BF_SOFT);      //设置标题栏的设备上下文为透明状态      SetBkMode(hCaptionDC, TRANSPARENT);      //设置标题栏设备上下文的字体      hOldFont:= SelectObject(hCaptionDC, CBBtnFont.Handle);      //画按钮      if uEdge = EDGE_RAISED then         DrawText(hCaptionDC, 'Caption Bar Button', 18, CBBtnRect, DT_CENTER)      else begin         r := CBBtnRect;         OffsetRect(r, 1, 1);         DrawText(hCaptionDC, 'Caption Bar Button', 18, r, DT_CENTER);      end;      //还原为原来的字体      SelectObject(hCaptionDC, hOldFont); end; procedure TForm1.WMNcActivate(var m: TMessage); begin      inherited;      DrawCaptionBtn(EDGE_RAISED); end; procedure TForm1.WMNcPaint(var m: TMessage); begin      inherited;      DrawCaptionBtn(EDGE_RAISED); end; procedure TForm1.WMNcLButtonDBLClk(var m: TMessage); var    p: TPoint; begin      p.x := LOWORD(m.lParam) - Self.Left;      p.y := HIWORD(m.lParam) - Self.Top;      if not PtInRect(CBBtnRect, p) then // 如果不在按钮区域内         inherited;  // 执行默认的操作 end; procedure TForm1.WMNcMouseMove(var m: TMessage); var    p: TPoint; begin      p.x := LOWORD(m.lParam) - Self.Left;      p.y := HIWORD(m.lParam) - Self.Top;      if not PtInRect(CBBtnRect, p) then // 如果不在按钮区域         DrawCaptionBtn(EDGE_RAISED)      else         inherited; // 执行默认的操作 end; procedure TForm1.WMNcLButtonDown(var m: TMessage); var    p: TPoint; begin      p.x := LOWORD(m.lParam) - Self.Left;      p.y := HIWORD(m.lParam) - Self.Top;      if PtInRect(CBBtnRect, p) then  // 如果按在了按钮区域      begin         Self.BringToFront;         DrawCaptionBtn(EDGE_SUNKEN);      end      else         inherited; // 执行默认的操作 end; procedure TForm1.WMNcLButtonUp(var m: TMessage); var    p: TPoint; begin      p.x := LOWORD(m.lParam) - Self.Left;      p.y := HIWORD(m.lParam) - Self.Top;      if PtInRect(CBBtnRect, p) then // 如果在标题栏按钮区域释放鼠标      begin         DrawCaptionBtn(EDGE_RAISED);      end      else         inherited; // 执行默认的操作 end; procedure TForm1.WMNcRButtonDown(var m: TMessage); var    p: TPoint; begin      p.x := LOWORD(m.lParam) - Self.Left;      p.y := HIWORD(m.lParam) - Self.Top;      if not PtInRect(CBBtnRect, p) then // 如果不在标题栏按钮区域         inherited;  // 执行默认的操作 end; procedure TForm1.FormCreate(Sender: TObject); begin      // 这个大小大家可以得用GetSystemMetrics 函数来进行更精确的计算。这里      // 只是用来示例      with CBBtnRect do      begin           left := 100;           top  := 6;           right := 450;           bottom := 20;      end;      // 标题栏按钮字体。      CBBtnFont:= TFont.Create;      with CBBtnFont do      begin           Name := '宋体';           Size := 9;           Color := clRed;      end; end; procedure TForm1.FormDestroy(Sender: TObject); begin      CBBtnFont.Free; end; end.

程云 · 2000-09-23

又来晚了， 让人抢去分了，

mantousoft · 2000-09-23

程云哥哥,你也来晚了 呵呵,我也是 我昨天才编了这个例子

loopy · 2000-09-23

分被人抢光了，，，，呜呜!! 俺也会！！！

Cursor · 2000-09-24

接受答案了.

cat.yy · 2001-08-05

宝贝——哈哈，我可不会

如何在真正的标题栏上画按钮并响应事件？　(100分)

Cursor

Unregistered / Unconfirmed

icewang

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Bcbhua

Unregistered / Unconfirmed

Cursor

Unregistered / Unconfirmed

emi

Unregistered / Unconfirmed

程云

Unregistered / Unconfirmed

mantousoft

Unregistered / Unconfirmed

loopy

Unregistered / Unconfirmed

Cursor

Unregistered / Unconfirmed

cat.yy

Unregistered / Unconfirmed

Similar threads

如何在真正的标题栏上画按钮并响应事件？ (100分)

Cursor

Unregistered / Unconfirmed

icewang

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Bcbhua

Unregistered / Unconfirmed

Cursor

Unregistered / Unconfirmed

emi

Unregistered / Unconfirmed

程云

Unregistered / Unconfirmed

mantousoft

Unregistered / Unconfirmed

loopy

Unregistered / Unconfirmed

Cursor

Unregistered / Unconfirmed

cat.yy

Unregistered / Unconfirmed

Similar threads

如何在真正的标题栏上画按钮并响应事件？　(100分)