[Vlady_32]

Необходимо вернуть границу окна после применения региона.
Есть код как это сделать, только непонятно откуда взялась переменная Mxpos и на ней выдаёт ошибку. Что она обозначает эта переменная?

Код:

procedure TForm1.HiTTest(var M: TWMNCHitTest) ;
var x:integer;
begin
	x:=Mxpos-left;
	if x<100 then
		M.Result:=HTCAPTION
	else inherited
end;

[lmikle]

Вероятно, это коодината мышки. Интересно, почему х...
Видимо, "возвращают" только левую границу.

На самом деле, этот код ничего не возвращает. Только при клике мышкой он в случае попадания в определенную область окна говорит, что это заголовок окна, что позволяет, например. двигать окно мышкой.

[Vlady_32]

После применения региона пропадает верхняя панель, там где расположены кнопки закрытия, сворачивания. Как их вернуть обратно?

[angvelem]

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

Код:

DeleteObject(MyRegion);

[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;

[angvelem]

Удалять нужно тот регион, который получился при его создании.
Правда непонятен смысл всего этого.

[Vlady_32]

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

Удалять нужно тот регион, который получился при его создании.
Правда непонятен смысл всего этого.

Спасибо за совет, разобрался. Всё получилось!