Вопросы и Ответы
5. Можно ли из Delphi рисовать в любой части экрана или в чужом окне?
Для этого надо воспользоваться функциями API. Получить контекст чужого окна, либо всего экрана:
function GetDC(Wnd: HWnd): HDC;
где Wnd - указатель на нужное окно, или 0 для получения контекста всего экрана.
И далее, пользуясь функциями API, нарисовать все что надо.
Пример:
............
PROCEDURE
DrawOnScreen; ScreenDC := GetDC(0); {получить контекст экрана} END;
............ Не забывайте после своих
манипуляций посылать пострадавшим (или всем)
окнам сообщение о необходимости перерисовки, для
восстановления их первоначального вида.
VAR ScreenDC: hDC;
BEGIN
Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}
ReleaseDC(0,ScreenDC); {освободить
контекст}
...предыдущая страница следующая...
оглавление