DelphiÖлæÖÆÔ²½Ç¾ØÐεĴ°Ìå

ÖÆ×÷Ô²½Ç¾ØÐεĴ°Ì壺
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
Èç¹û²»Òª´°ÌåÍâ¿ò£¬ÔòʹÓãº
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(1,1,width-2,height-2,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
ÓÉÓÚµÚÒ»¶Î´úÂë×ö³öÀ´µÄ´°¿Ú£¬Ô²½Ç²¿·Ý»áûÓб߿ò£¬Ê¹ÓÃÏÂÃæµÄ´úÂë×ö³ö±ß¿ò£º
01.procedure TForm1.FormPaint(Sender: TObject);
02.var
03.DC: HDC;
04.Pen: HPen;
05.OldPen: HPen;
06.OldBrush: HBrush;
07.begin
08.DC := GetWindowDC(Handle);
09.Pen := CreatePen(PS_SOLID, 1, clGray);
10.OldPen := SelectObject(DC, Pen); //ÔØÈë×Ô¶¨ÒåµÄ»­±Ê,±£´æÔ­»­±Ê
11.OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));//ÔØÈë¿Õ»­Ë¢,±£´æÔ­»­Ë¢
12.RoundRect(DC, 0, 0, Width-1, Height-1,21,21); //»­±ß¿ò
13.SelectObject(DC,OldBrush);//ÔØÈëÔ­»­Ë¢
14.SelectObject(DC,OldPen); // ÔØÈëÔ­»­±Ê
15.DeleteObject(Pen);
16.ReleaseDC(Handle, DC);
17.end;