J Jhdandcl Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #1 前些時候看到有人貼了篇如何做半透明效果Form，還有其它特殊效果的文章，找不到， 哪位告訴我
M maming Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #2 http://richsearch.com/displ.jsp?lid=1079528
三 三点 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #3 四四方方的窗体也会变形，利用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事件处理程序放相同的代码。
四四方方的窗体也会变形，利用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事件处理程序放相同的代码。
C cqbaobao Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #4 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1212321
