La peinture sur une autre application de toile.
extrait de Code qui montre comment peindre dans une autre fenêtre de l'application ou sur l'écran lui-même.
Jamais voulu peindre dans la fenêtre de Word, ou sur le bureau? Jetez un oeil à ceci:
procedure TForm1.Button1Click(Sender: TObject)
var diameter:thandle
& nbsp & nbsp & nbsp thecanvas:tcanvas
begin
thecanvas:=tcanvas.créer
winexec('notepad.exe',sw_normal)
diameter:=findwindow('bloc-notes',nil)
thecanvas.poignée:=getdc(diameter)
thecanvas.rectangle(0,0,100,100)
thecanvas.gratuit
fin
Pour la peinture l'écran lui-même, utilisez:
thecanvas.poignée:=createdc('DISPLAY',Nil,Nil,Nil)
La peinture sur une autre application de toile.
La peinture sur une autre application de toile. : Plusieurs milliers de conseils pour vous faciliter la vie.
extrait de Code qui montre comment peindre dans une autre fenetre de l'application ou sur l'ecran lui-meme.
Jamais voulu peindre dans la fenetre de Word, ou sur le bureau? Jetez un oeil a ceci:
procedure TForm1.Button1Click(Sender: TObject)
var diameter:thandle
& nbsp & nbsp & nbsp thecanvas:tcanvas
begin
thecanvas:=tcanvas.creer
winexec('notepad.exe',sw_normal)
diameter:=findwindow('bloc-notes',nil)
thecanvas.poignee:=getdc(diameter)
thecanvas.rectangle(0,0,100,100)
thecanvas.gratuit
fin
Pour la peinture l'ecran lui-meme, utilisez:
thecanvas.poignee:=createdc('DISPLAY',Nil,Nil,Nil)
La peinture sur une autre application de toile.
By commentfaire
La peinture sur une autre application de toile. : Plusieurs milliers de conseils pour vous faciliter la vie.
