windows – 向表单添加边框图标

这在 Windows Aero之前很容易做到.您只需要在标题栏上方收听WM_NCPAINT和WM_NCACTIVATE消息,同样可以使用其他WM_NC *消息来响应鼠标点击等,特别是WM_NCHITTEST,WM_NCLBUTTONDOWN和WM_NCLBUTTONUP.

例如,要在标题栏上绘制一个字符串,您只需要这样做

unit Unit1;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;

type
  TForm1 = class(TForm)
  protected
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
    procedure WMNCActivate(var Msg: TWMNCActivate); message WM_NCACTIVATE;
  private
    procedure DrawOnCaption;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCActivate(var Msg: TWMNCActivate);
begin
  inherited;
  DrawOnCaption;
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  DrawOnCaption;
end;

procedure TForm1.DrawOnCaption;
var
  dc: HDC;
begin
  dc := GetWindowDC(Handle);
  try
    TextOut(dc,20,2,'test',4);
  finally
    ReleaseDC(Handle,dc);
  end;
end;

end.

现在,这不适用于启用Aero.不过,有一种方法可以利用标题栏;我已经这样做了,但它要复杂得多.有关工作示例,请参见this article.