[Vlady_32]

Сообщение от angvelem

Удалить регион

Код:

DeleteObject(MyRegion);

Сделал, что вы сказали. Всё равно не получилось.

procedure TForm1.FormCreate(Sender: TObject);
var
rgn1,rgn2: Thandle;
p:array[0..20] of tpoint;
begin
Form1.Borderstyle := bsNone;
rgn1:= CreateRoundRectRgn(0,0,Width,Height,25,25);
rgn2:=CreateRoundRectRgn(440,15,485,115,25,25);
CombineRgn(rgn1,rgn1,rgn2,RGN_XOR);
p[0]:=point(445,20);
p[1]:=point(445,110);
p[2]:=point(450,110);
p[3]:=point(450,20);
p[4]:=point(445,20);

p[5]:=point(450,60);
p[6]:=point(470,20);
p[7]:=point(475,25);
p[8]:=point(460,55);
p[9]:=point(480,105);

p[10]:=point(475,110);
p[11]:=point(455,60);
p[12]:=point(450,75);
p[13]:=point(450,60);
rgn2:=CreatePolygonRgn(p,14,1);
CombineRgn(rgn1,rgn1,rgn2,RGN_XOR);
try
SetWindowRgn(Handle, rgn1,True);
finally
DeleteObject (rgn1);
end;
end;