Текущий архив: 2007.06.03;
Скачать: 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 вся ветка
Текущий архив: 2007.06.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.044 c
