Вообщем создаю что-то вроде скиновой формы. Все нормально только когда я премещаю форму за область экрана неклиентская область формы не отрисовывается.
| Код |
procedure TForm1.WMNCPAINT(var Message: TWMNCPAINT);
var
DC: THandle;
begin
if (Rgn = 0) or (Rgn = 1) then
begin
DC := GetWindowDC(Handle);
DrawSkinBorderAndCaption(DC);
end else
begin
//Здесь я использую DrawSkinBorderAndCaption(DC), то все будет нормально,
// только вот при Resize окна начинаются подергивания при открисовки
end;
ReleaseDC(Handle, DC);
end;
|
|