Обновить DC

[liljon]

Рисую прямоугольник на DC для всего экрана. Дело в том, что после прорисовки я хочу этот прямоугольник очистить, пробовал InvalidateRect, UpdateWindow, SendMessage, пробовал перерисовать с R2_NOTXORPEN. Закрашеная область стираеться только если переместить окно. Подскажите что еще можно сделать

[raxp]

...а чего у меня работает:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 InvalidateRect(0, nil, True)
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var ddc, p_hdc: hdc;
begin
 ddc:= getdc(0);
 p_hdc:= CreatePen(PS_SOLID, 1,RGB(0, 0, 255)) ;
 SelectObject(ddc, p_hdc);
 movetoex(ddc,200,300,nil);
 lineto(ddc,250,400);

 rectangle(ddc, 300,200,750,250);
end;

[liljon]

InvalidateRect(0, nil, True)

у меня было InvalidateRect(GetDesktopWindow(), nil, True)

=)