发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: delphi成非矩形窗口
发信站: 哈工大紫丁香 (2001年03月13日18:05:12 星期二), 转信

成非矩形窗口 <<上一篇 >>下一篇 
  利用win32 API函数setwindowrgn可以将窗口定义为任何形状，以下是将窗口定
义为园角矩形的例子：

procedure TPortForm.FormCreate(Sender: TObject);
var hr :thandle;
begin hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形
(win API函数) setwindowrgn(handle,hr,true); //设置园角窗口 
end;
为了使该窗口更好，应在onResize事件处理程序放相同的代码。 
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 >>下一篇 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]