自從XP以來,視窗的角都採圓弧形,最近在寫程式的時候突然靈機一動,用WIN API32的SetWindowRgn函式來把物件都做圓弧角的處裡,以下是我的範例程式,若有不對的地方請各位大大多多指教,小弟我比較會FIRMWARE,對視窗程式還是新手 < class="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { TWinControl *TheFirst=NULL,*TheFind; TheFirst = FindControl(Handle); TheFirst = FindNextControl(TheFirst, true, false, false); TheFind = TheFirst; while(1) { if( ((AnsiString)TheFind->ClassName())=="TButton" ) { HRGN mytest = ::CreateRoundRectRgn(0, 0, TheFind->Width 1, TheFind->Height 1, 15, 15 ); ::SetWindowRgn( TheFind->Handle, mytest, true); } if( (TheFind=FindNextControl(TheFind, true, false, false))==TheFirst ) break; } } 這個範例程式只把所有TButton做成圓弧角,若把第一個if拿掉則可對所有物件做處裡