Карта сайтаСсылкиКонтакты

Хостинг


Прозрачный текст на рабочем столе

PDF Печать
Статьи

Используйте функции GetDesktopWindow и GetWindowDC, чтобы найти атрибуты рабочего стола для дальнейшего использования. И установите режим фона, используя функцию GetBKMode.


procedure TForm1.Button1Click(Sender: TObject);
var
  Desktop: THandle;
  MyCanvas: TCanvas;
  DesktopDC: HDC;
begin
  Desktop:= GetDesktopWindow;
  DesktopDC:= GetWindowDC(Desktop);

  MyCanvas:= TCanvas.Create;
  MyCanvas.Handle:= DesktopDC;

  SetBkMode(MyCanvas.Handle, TRANSPARENT);
  MyCanvas.TextOut(10, 10, 'Hello');
end;

 

Добавить комментарий


Защитный код
Обновить