Скачать: CL | DM;

Как в режиме 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?


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

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

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

---

← →
sniknik ©   (2007-04-09 21:42) [4]

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

---

← →
Johnmen ©   (2007-04-09 22:58) [5]

> SkySpeed   (09.04.07 18:12) 

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.957 c