如何给不规则窗体画边框

Question

我把一个窗体变成了不规则型，想在窗体上画上边框，代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var
  hr: THandle;
begin
  hr :=  CreateRoundRectRgn(2, 2, Width -2, Height - 2, 20, 20);
  Canvas.Brush.Color := clRed;
  FrameRgn(handle, hr, Canvas.Brush.Handle, 1, 1);
  SetWindowRgn(handle, hr, true);
end;
研究了好几天，可怎么也画不上，请大家指点，谢谢。

Answer 1

参考一个ksaiy大侠写的代码：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure DrawFormLine;
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DrawFormLine;
var
  dc : hDc;
  Pen : hPen;
  OldPen : hPen;
  OldBrush : hBrush;
begin
  dc := GetWindowDC(Handle);
  Pen := CreatePen(PS_SOLID, 8, RGB(0, 0, 255));
  OldPen := SelectObject(dc, Pen);
  OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
  Self.Refresh;
  RoundRect(dc,0,21,Width,Height,80,80);
  SelectObject(dc, OldBrush);
  SelectObject(dc, OldPen);
  DeleteObject(Pen);
  ReleaseDC(Handle, Canvas.Handle);
end;procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
begin
  DrawFormLine;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  hr:THandle;
begin
  hr:=CreateRoundRectRgn(0,21,Width,Height,80,80);
  SetWindowRgn(handle,hr,true);
end;end.

Answer 2

看看我做的一个不规则的窗体（Delphi6）
-------------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
//设置五角星区域顶点
const
  RgnPoints : array[1..10] of TPoint =
    ((X:203;Y:22), (X:157;Y:168), (X:3;Y:168),
    (X:128;Y:257), (X:81;Y:409), (X:203;Y:334),
    (X:325;Y:409), (X:278;Y:257), (X:402;Y:168),
    (X:249;Y:168));
//定义五角星轮廓线各个顶点坐标
  LinePoints : array[1..11] of TPoint =
    ((X:199;Y:0), (X:154;Y:145), (X:1;Y:145),
    (X:124;Y:233), (X:79;Y:384), (X:199;Y:310),
    (X:320;Y:384), (X:273;Y:234),(X:396;Y:145),
    (X:244;Y:145), (X:199;Y:0));implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
//程序创建窗体时改变窗体外形为五角星
var
  Rgn:HRGN;
begin
  Rgn:= CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
  //创建一个多边形的区域
  SetWindowRgn(Handle, Rgn, True);
  //绘制多边形窗体
  form1.color:=rgb(80,110,220);
  //设置窗体初始背景颜色
  SetWindowPos(Form1.Handle,HWND_TOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //使窗体始终保持在最前
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Width := 1;
  //设定画笔大小
  Canvas.Polyline(LinePoints);
  //绘制多边形轮廓线
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,HWND_NOTOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //恢复窗体正常位置和显示属性
  form1.close;
  //关闭窗体
end;
end.

Answer 3

第二个例子运行后没变化，第一个例子对复杂的不规则窗体就适应不了，我看VC上用FrameRgn来画边框，再复杂的窗体也没问题，可在DELPHI就是实现不了，请大家继续指点，谢谢上面两位了。

Answer 4

教你一种简单一点的方法，把窗体的透明属性设为Ture，然后设置一中透明颜色。然后跟根据你的需要的形状用image或者其他方法填上就行了

Answer 5

FrameRgn(handle, hr, Canvas.Brush.Handle, 1, 1);==>FrameRgn(Canvas.handle, hr, Canvas.Brush.Handle, 1, 1);

Answer 6

用image加载图片撒，这样最简单，除非你要动态绑定图片

Answer 7

你在 FormCreate 中處理是不夠的, 你要在 OnPaint 中處理畫的東西!

Answer 8

看看我做的一个不规则的窗体（Delphi6）
-------------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
//设置五角星区域顶点
const
  RgnPoints : array[1..10] of TPoint =
    ((X:203;Y:22), (X:157;Y:168), (X:3;Y:168),
    (X:128;Y:257), (X:81;Y:409), (X:203;Y:334),
    (X:325;Y:409), (X:278;Y:257), (X:402;Y:168),
    (X:249;Y:168));
//定义五角星轮廓线各个顶点坐标
  LinePoints : array[1..11] of TPoint =
    ((X:199;Y:0), (X:154;Y:145), (X:1;Y:145),
    (X:124;Y:233), (X:79;Y:384), (X:199;Y:310),
    (X:320;Y:384), (X:273;Y:234),(X:396;Y:145),
    (X:244;Y:145), (X:199;Y:0));implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
//程序创建窗体时改变窗体外形为五角星
var
  Rgn:HRGN;
begin
  Rgn:= CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
  //创建一个多边形的区域
  SetWindowRgn(Handle, Rgn, True);
  //绘制多边形窗体
  form1.color:=rgb(80,110,220);
  //设置窗体初始背景颜色
  SetWindowPos(Form1.Handle,HWND_TOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //使窗体始终保持在最前
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Width := 1;
  //设定画笔大小
  Canvas.Polyline(LinePoints);
  //绘制多边形轮廓线
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowPos(Form1.Handle,HWND_NOTOPMOST,Form1.Left,Form1.Top,Form1.Width,Form1.Height,0);
  //恢复窗体正常位置和显示属性
  form1.close;
  //关闭窗体
end;
end.