Рисовать на экране с помощью Canvas
Чтобы рисовать в любом месте экрана компьютера, используя все удобства CANVAS, нужно создать переменную типа TCanvas и ассоциировать ее с экраном, Handle которого равен 0. procedure TForm1.Button1Click(Sender: TObject);var
c: TCanvas;
i: integer;
begin
c := TCanvas.Create;
c.Handle := GetDC(0);
c.Pen.Mode := pmNotXor;
for i := 0 to 255 do begin
c.Pen.Color := RGB(0, 0, i);
c.MoveTo(50, 50 + i);
c.LineTo(150, 50 + i);
end;
ReleaseDC(0, c.Handle);
end;
