Рисование поверх всех компонент.

← →
None (2002-03-05 11:29) [0]

Как можно рисовать повер всех компонент.
Если использовать Form.Canvas то компоненты лежащие на форме затирают то что нарисовано.

← →
SVM (2002-03-05 11:50) [1]

procedure TForm.DrawOver;
var
DC:HDC;
begin
DC:=GetWindowDC(Handle);
try
MoveToEx(DC,0,0,Nil);
LineTo(DC,200,200);
finally
ReleaseDC(Handle,DC);
end;
end;

← →
None (2002-03-05 12:04) [2]

Большое спасибо.

Рисование поверх всех компонент. Найти похожие ветки