Советы по Delphi

         

Как рисовать прямо на экране?


Nomadic приводит следующий код:

    ........................................................ Procedure DrawOnScreen; Var DC:HDC; DesktopCanvas:TCanvas; begin DC:=GetDC(0);   // получили DC экрана try DesktopCanvas:=TCanvas.Create; DesktopCanvas.Handle:=DC; .................. // здесь рисуем на Canvas экрана .................. finally ReleaseDC(0,DC); DesktopCanvas.Free; end; end; ........................................................

[001646]



Содержание раздела