Вывод надписи поверх всех окон

Delphi , Графика и Игры , Графика

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

procedure WriteDC(s: string);
var
  c: TCanvas;
begin
  c := TCanvas.Create;
  c.Brush.Color := clBlue;
  c.Font.color := clYellow;
  c.Font.name := 'Fixedsys';
  c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
  c.TextOut(screen.Width - c.TextWidth(s) - 2, screen.Height - 43, s);
  c.free;
end;

Статья Вывод надписи поверх всех окон раздела Графика и Игры Графика может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Графика ::