La pintura sobre otra aplicación de la lona.

12/8/2018

1819

La pintura sobre otra aplicación de la lona.

fragmento de Código que muestra cómo pintar en otra ventana de la aplicación o en la pantalla.
alguna Vez el deseo de pintar en la ventana de Word, o en el escritorio? Eche un vistazo a esto:
procedure TForm1.Button1Click(Sender: TObject)
var thehandle:thandle
& nbsp & nbsp & nbsp thecanvas:tcanvas
begin
thecanvas:=tcanvas.crear
winexec('notepad.exe',sw_normal)
thehandle:=findwindow('bloc de notas',nil)
thecanvas.identificador:=getdc(thehandle)
thecanvas.rectángulo(0,0,100,100)
thecanvas.libre
fin
Para que la pintura de la pantalla en sí, de uso:
thecanvas.identificador:=createdc('DISPLAY',Nil,Nil,Nil)

La pintura sobre otra aplicacion de la lona.

La pintura sobre otra aplicacion de la lona. : Multi-millones de consejos para hacer su vida mas facil.

fragmento de Codigo que muestra como pintar en otra ventana de la aplicacion o en la pantalla.
alguna Vez el deseo de pintar en la ventana de Word, o en el escritorio? Eche un vistazo a esto:
procedure TForm1.Button1Click(Sender: TObject)
var thehandle:thandle
& nbsp & nbsp & nbsp thecanvas:tcanvas
begin
thecanvas:=tcanvas.crear
winexec('notepad.exe',sw_normal)
thehandle:=findwindow('bloc de notas',nil)
thecanvas.identificador:=getdc(thehandle)
thecanvas.rectangulo(0,0,100,100)
thecanvas.libre
fin
Para que la pintura de la pantalla en si, de uso:
thecanvas.identificador:=createdc('DISPLAY',Nil,Nil,Nil)