Delphi下创建异形窗体

procedure TForm1.FormCreate(Sender: TObject);
var
  pt: array [0 .. 4] of TPoint;
  m_rgn: HRGN;
begin
  pt[0].x := self.Width div 2;
  pt[0].y := 0;
  pt[1].x := 0;
  pt[1].y := self.Height div 2;
  pt[2].x := self.Width div 2;
  pt[2].y := self.Height;
  pt[3].x := self.Width;
  pt[3].y := self.Height div 2;
  pt[4].x := self.Width;
  pt[4].y := 0;
  m_rgn := CreatePolygonRgn(pt, 5, WINDING);
  SetWindowRgn(self.Handle, m_rgn, TRUE);
end;




上一篇: 使用SndPlaySound从内存中播放WAV
下一篇: Delphi下重载窗体CreateParams翻转关闭按钮
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭