Z _zeus Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-12 #2 CreateXXXRgn() SetWindowRgn() 查一下 API。
B bjaman Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-12 #3 以下是将窗口定义为园角矩形的例子： 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事件处理程序放相同的代码。
以下是将窗口定义为园角矩形的例子： 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事件处理程序放相同的代码。
H hlfdsj Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-12 #4 procedure TForm1.FormCreate(Sender: TObject); var region: HRgn; begin region:=CreateEllipticRgn(1,1,200,200); //边界矩形为正方形的椭圆就是圆 SetWindowRgn(handle,region, true); //将窗体区域设为新创建的圆，bRedraw为true表示需要系统重绘窗口，此处也可为//false end;
procedure TForm1.FormCreate(Sender: TObject); var region: HRgn; begin region:=CreateEllipticRgn(1,1,200,200); //边界矩形为正方形的椭圆就是圆 SetWindowRgn(handle,region, true); //将窗体区域设为新创建的圆，bRedraw为true表示需要系统重绘窗口，此处也可为//false end;
A archonwang Unregistered / Unconfirmed GUEST, unregistred user! 2003-10-13 #7 能给我家分吗 我提供源码给你，给我你的邮箱 我的是archonwang1981@msn.com
