|
var
gFrmR: HRgn;
procedure TForm1.FormResize(Sender: TObject);
begin
//--------------------
gFrmR := CreateRoundRectRgn( 0,0, Width, Height, 12, 12 );
// gFrmR := CreateEllipticRgn( 0, 0, Width, Height );
// gFrmR := CreateEllipticRgnIndirect( ClientRect );
// gFrmR := CreateRectRgn( 0, 0, Width, Height );
// gFrmR := CreateRectRgnIndirect( ClientRect );
// gFrmR := CreateRoundRectRgn( 0,0, Width, Height, 150, 150 );
SetWindowRgn(Handle,gFrmR,True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteObject(R);
end;
검색을 해보니 델파이는 이렇게 하라고 하는데요...
C빌더는 당췌모르겠네요 ㅠ.ㅠ 델파이를 알지를 못하니... 이거 어떻게 하나요 ㅠ.ㅠ
|