Как в режиме RunTime НОРМАЛЬНО изменить форму TForm?

← →
SkySpeed (2007-04-09 18:12) [0]

Пробую так:
procedure TForm1.Button1Click(Sender: TObject); var s:HRGN; begin s:=CreateEllipticRgn(0,0,Width-1,Height-1); SetWindowRgn(Handle,s,False); DeleteObject(s); end;

В результате форма вид ПОЧТИ не меняет.
Почти - то есть если под формой произойдёт прорисовка, то "лишняя" область удалится, иначе останется обычная прямоугольная форма

Что нужно дописать/изменить, чтобы форма нормально прорисовывалась?

← →
Darvin © (2007-04-09 18:28) [1]

Refresh ?

← →
clickmaker © (2007-04-09 18:29) [2]

Refresh, Repaint, Invalidate?

← →
SkySpeed (2007-04-09 18:57) [3]

> Darvin © (09.04.07 18:28) [1]
> Refresh ?
>
>
>
> clickmaker © (09.04.07 18:29) [2]
> Refresh, Repaint, Invalidate?

Не подходит...

Нужно обновить всё то, что находится за пределами формы...

Попробуйте сами код прописать

> то есть если под формой произойдёт прорисовка
ну так сделай ее...
RedrawWindow(GetDesktopWindow(), 0, 0, RDW_INVALIDATE or RDW_UPDATENOW or RDW_ALLCHILDREN);

> SkySpeed (09.04.07 18:12)

...
SetWindowRgn(Handle,s,True);
...

Как в режиме RunTime НОРМАЛЬНО изменить форму TForm? Найти похожие ветки