unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure Panel1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
f: Boolean;
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Color := clWhite;
Panel1.ParentBackground := False;
end;
procedure TForm1.Panel1Click(Sender: TObject);
var
rgn: HRGN;
begin
f := not f;
if f then
rgn := CreateEllipticRgn(0, 0, Panel1.Width, Panel1.Height)
else
rgn := CreateRectRgn(0, 0, Panel1.Width, Panel1.Height);
SetWindowRgn(Panel1.Handle, rgn, True)
end;
end.
创建异形窗口[6]
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
下一篇:创建异形窗口[5]
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
psql窗口函数 ROW_NUMBER的应用
psql窗口函数的使用
窗口函数 一对多 表结构 -
如何使用SetWindowRgn函数创建异形窗口
如何使用SetWindowRgn函数创建异形窗口时间:2000/10/11 21:0
数据 控件 应用程序 工具软件 多文档