이호선 wrote:

> 안녕하세요.

> 따사로운 봄날이군요

> form의 일부분을 밑에 깔린화면이 나오도록 투명하게 할려면

> 어떻게 해야 할지요.

> 즐거운 오후시간 되세요



이호선님 안녕하세요?

아래는 구멍뚫린 도우넛 모양의 구멍을 폼에 만들어주는

간략한 코드입니다.

뚫린 구멍사이로 뒷 배경의 내용이 클릭됩니다. ^^;

보시고 응용하시기 바랍니다.

var

hRect, hEllipse, hResult : THandle;

ix, iy : integer;

begin

// Client영역의 시작위치를 구해둠..

ix := (Width - ClientWidth) div 2;

iy := Height - ClientHeight-ix;

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

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

hEllipse := CreateEllipticRgn(ix, iy, ClientWidth-ix, ClientHeight);

if CombineRgn(hResult, hRect, hEllipse, RGN_XOR) <> ERROR then

SetWindowRgn(Handle,hResult,True);

end;

그럼.. 즐거운 코딩~~