Делаем прозрачное окно -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.220.187.178]

Модераторы: jack128, Rouse_, Krid

Делаем прозрачное окно , при помощи регионов

Rouse_

Сообщ. #1 , 12.05.05, 11:43

Moderator

Рейтинг (т): 320

procedure TForm1.Button1Click(Sender: TObject);

var

I, X, Y: Integer;

TmpReg, WindowRegion: HRGN;

hRect: TRect;

begin

hRect := GetClientRect;

X := (Width - hRect.Right) div 2;

Y := Height - hRect.Bottom - GetSystemMetrics(SM_CYSIZEFRAME);

WindowRegion := CreateRectRgnIndirect(hRect);

GetWindowRgn(Handle, WindowRegion);

try

for I := 0 to ComponentCount - 1 do

with TControl(Components[I]) do

begin

if Parent = Self then

begin

TmpReg := CreateRectRgn(Left + X, Top + Y, Width + Left + X, Height + Top + Y);

try

CombineRgn(WindowRegion, TmpReg, WindowRegion, RGN_XOR);

finally

DeleteObject(TmpReg);

end;

TmpReg := CreateRectRgnIndirect(hRect);

try

GetWindowRgn(Handle, TmpReg);

CombineRgn(WindowRegion, TmpReg, WindowRegion, RGN_XOR);

SetWindowRgn(Handle, WindowRegion, True);

finally

DeleteObject(TmpReg);

end;

finally

DeleteObject(WindowRegion);

end;

Автор: Rouse_

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0157 ] [ 16 queries used ] [ Generated: 27.04.24, 20:53 GMT ]