求助：把窗体画圆角.

Question

请教个问题：我想把窗体的左上角和右上角弄成圆角，该如何做 ？PS：请不要告诉我用第三方控件来完成~~~

Answer 1

1.使用API
2.使用一张圆角矩形图片,把角边变透明

Answer 2

Wi n d o w s提供了下面的一些A P I函数可以定义矩形和非矩形的区域句柄：
• CreateEllipticRgn 生成定义椭圆形区域句柄。
• CreatePolygonRgn 生成定义多边形区域句柄。
• CreateRectRgn 生成定义矩形区域句柄。
• CreateRoundRectRgn 生成定义圆角矩形区域句柄。
根据上面函数定义的区域句柄，可以利用函数S e t Wi n d o w R g n设置窗口的边界。
通常可以在窗口的O n C r e a t e事件的处理过程中添加如下代码：
procedure TForm1.FormCreate(Sender: TO b j e c t ) ;
var
hr :THandle;
b e g i n
// 设置区域句柄
h r : = C r e a t e E l l i p t i c R g n ( 0 , 0 , Wi d t h , H e i g h t ) ;
// 设置窗口边界
S e t Wi n d o w R g n ( h a n d l e , h r, t r u e ) ;
e n d ;
在窗体大小可变时，可以在窗体的o n R e s i z e事件的处理过程中也添加上述代码。
从书中给你把下来的

Answer 3

回复人： ok1996() ( ) 信誉：100  2004-11-13 15:17:00  得分: 0  
 
 2.使用一张圆角矩形图片,把角边变透明
  
 
>>>你的办法我之前有想过，但不想用这种方法实现~~

Answer 4

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);  //©w¸q¾ò¶êµ¡¤f
  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 5

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 6

首先感谢 ksaiy(消失在人海-喜欢昆明的花) 
procedure TForm1.DrawFormLine; //这是画线的吧和圆角谈不上关系吧//下面才是画圆，但四个角都是圆角
var
  hr:THandle;
begin
  hr:=CreateRoundRectRgn(0,21,Width,Height,80,80);
  SetWindowRgn(handle,hr,true);
end;

Answer 7

感谢 ksaiy(消失在人海-喜欢昆明的花

Answer 8

你有我的tsnform代码的话里面有写的

Answer 9

问题解决了，感谢  sncel(地狱情人-杨勇)~~~~~
结贴