안녕하세여.. 타락임다.^^



그러세여..



소스코드 보냄다..



왕초보 타락천사..^_________^



사발우성 wrote:

>

> 폼형탤 바꿀 수 있나엽... 네모난 폼 말구엽 ♡이런 모양 으로 만들수 없나엽..

>

> 어떤 뇨자 한테 선물할 다이어릴 만들었는데엽... 폼모야이 넘 네모나니까 영 아니네

>

> 엽.. 아시면 누가 갈켜 줘엽...그럼 2000만...

>

> 고수님들 ♡에빠진 사발을 구제 해줘엽 그럼 빠이

>

>

안녕하세여.. 타락임다..^^



소스가 안보이네여..



코드 올림다.



핵심은 여러개의 영역을 묶는 CombineRgn() 임다.



FormResize() 이벤트에 코딩함다.



사용법은 가운데 구멍이 생기게 4개의 판넬을 만듭니다..



procedure TForm1.FormResize(Sender: TObject);

var

WindowRgn, HoleRgn : HRGN;

begin

WindowRgn := 0;

GetWindowRgn(Handle, WindowRgn);

DeleteObject(WindowRgn);

WindowRgn := CreateRectRgn(0, 0, Width, Height);

HoleRgn := CreateRectRgn(Panel3.Width + 6, Panel1.Height + 25,

Width - (Panel4, Width + 6), Height - Panel2.Height + 6));

CombineRgn(WindowsRgn. WidnowsRgn, HoleRgn, RGN_DIFF);

SetWindowRgn(Handle, WindowRgn, True);

DeleteObject(HoleRgn);

end;



즐푸하세여..



왕초보 타락천사..^______^

사발우성 wrote:

>

> 폼형탤 바꿀 수 있나엽... 네모난 폼 말구엽 ♡이런 모양 으로 만들수 없나엽..

>

> 어떤 뇨자 한테 선물할 다이어릴 만들었는데엽... 폼모야이 넘 네모나니까 영 아니네

>

> 엽.. 아시면 누가 갈켜 줘엽...그럼 2000만...

>

> 고수님들 ♡에빠진 사발을 구제 해줘엽 그럼 빠이

>

>



안녕하세요.

까마귀입니다. 하하.. 부럽네요... 좋겠다...



자료실인가? 그쪽을 뒤져보세요.

폼 모양을 마음대로 하는 것을 본것 같은데...

어딘가 확실한 기억은 없네요..



부러운 마음에 적어보는 별도움 않되는 까마귀가...







위대한 단군혼이 살아있는 나라.... 대한민국.