请教个问题:我想把窗体的左上角和右上角弄成圆角,该如何做 ?PS:请不要告诉我用第三方控件来完成~~~
解决方案 »
- 运行时可用内存愈来愈小,如何查错?
- 关于HOOK注册表后的HKEY的值
- 就算是丢脸了,发神经了,还是什么不惧问问题。。。
- 请问dest:=format('%1.2x',[100]); 是什么意思啊?
- TApplicationEvents的触发问题,快来帮帮我...
- 请问,如何通过DELPHI打开IE浏览器并自动登陆到制定的网站?
- 用adotable链接数据, 当服务器数据库没有启动时
- 两个问题,请进来看。一个关于进度条的使用;一个是否可以用自增加字段作为关键字来用query的update来保存修改?
- 不知哪位仁兄能告诉我,哪个免费空间装有BDE,因为我写了一个ISAPP程序,我一定给分!!
- 一个字体大小的问题
- 怎样MainMenu1自动生成的快捷键?
- TListView怎样的到当前选择行的行号
2.使用一张圆角矩形图片,把角边变透明
• 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事件的处理过程中也添加上述代码。
从书中给你把下来的
2.使用一张圆角矩形图片,把角边变透明
>>>你的办法我之前有想过,但不想用这种方法实现~~
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.
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.
procedure TForm1.DrawFormLine; //这是画线的吧和圆角谈不上关系吧//下面才是画圆,但四个角都是圆角
var
hr:THandle;
begin
hr:=CreateRoundRectRgn(0,21,Width,Height,80,80);
SetWindowRgn(handle,hr,true);
end;
结贴