procedure TForm1.FormCreate(Sender: TObject);
var
hr :thandle;
begin
hr:=createroundrectrgn(1,1,width-2,height-2,5,5);
setwindowrgn(handle,hr,true);
end;
procedure TForm1.FormPaint(Sender: TObject);
var
DC: HDC;
Pen: HPen;
OldPen: HPen;
OldBrush: HBrush;
begin
DC := GetWindowDC(Handle);
Pen := CreatePen(PS_SOLID, 1, clGray);
OldPen := SelectObject(DC, Pen); //载入自定义的画笔,保存原画笔
OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));//载入空画刷,保存原画刷
RoundRect(DC, 0, 0, Width-1, Height-1, 6, 6); //画边框
SelectObject(DC,OldBrush);//载入原画刷
SelectObject(DC,OldPen); // 载入原画笔
DeleteObject(Pen);
ReleaseDC(Handle, DC);
end;
分享到:
相关推荐
制作几何形状的窗体 圆角 用delphi窗口进行圆角不再是问题了
delphi几何形状窗体的例子,delphi7编译,运行通过
Delphi制作比较规则的几何图形窗体,主要包括矩形窗体、环形窗体、圆角四边形窗体等。
Delphi将窗体改变为规则的几何图形窗体,主要包括矩形窗体、环形窗体、圆角四边形窗体等,上边的截图为圆角四边形。
完全兼容Delphi自带的TPOPUPMENU,因为直接从它继承而来,只是单元中我创建了一个用于菜单项显示的类,绘制弹出窗体的背景和菜单项的绘制使用GDI+技术.具有阴影效果. 因为自带的TPOPUPMENU创建的窗体不够好看,所以弹...
创建圆角窗体 创建透明窗体 判断窗体是modal 制作动画应用程序图标 制作可移动不能改变大小的窗体 制作永远最小化窗口 制作透明窗口 取和设置鼠标位置 取鼠标指针下面的活动TWinControl 启动时隐藏主窗口 在 window ...
0283 显示圆角窗体 183 0284 制作多边形窗体 184 0285 以文字的形式显示窗体 185 0286 如何实现窗体半透明 185 0287 制作立体窗口阴影效果 186 8.6 工具栏、状态栏及下拉列表 187 0288 制作带历史信息...
0283 显示圆角窗体 183 0284 制作多边形窗体 184 0285 以文字的形式显示窗体 185 0286 如何实现窗体半透明 185 0287 制作立体窗口阴影效果 186 8.6 工具栏、状态栏及下拉列表 187 0288 制作带历史信息...
1.可制作圆角窗体,仿WindowsXP样式。 2.可绘制体边框,且边框色、填充色任意。 3.标题栏字体可随意变化,并可设为长、扁字形。 4.不设标题栏图像列表时,将使用颜色填充。 5.窗口标题栏的高度仅与设置的图像...