RSS订阅 | 匿名投稿
您的位置:网站首页 > 常用 > 正文

delphi 创建圆形或椭圆形窗体

作者:admin 来源:未知 日期:2010/4/26 22:31:21 人气: 标签:

delphi 创建圆形或椭圆形窗体主要使用以下两个函数

// The CreateEllipticRgn function creates an elliptical region.
function CreateEllipticRgn(
nLeftRect: Integer, // x-coordinate of the upper-left corner
nTopRect: Integer, // y-coordinate of the upper-left corner
nRightRect: Integer, // x-coordinate of the lower-right
nBottomRect: Integer // y-coordinate of the lower-right corner
): HRGN;
// The SetWindowRgn function sets the window region of a window.
function SetWindowRgn(
hWnd: HWND, // handle to window whose window region is to be set
hRgn: HRGN, // handle to region
bRedraw: Boolean // window redraw flag
);
使用方法:


procedure TForm1.FormCreate(Sender: TObject);
var
hRegion: HRGN;
begin
BorderStyle := bsNone;
hRegion := CreateEllipticRgn(1, 1, 200, 200);
SetWindowRgn(Handle, hRegion, True);
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: