bonjour
je voudrais d'après le handle d'une fenêtre copier son canvas
j'ai essayer avec paint de windows j'arrive a le récupère image
mais des que je met le handle de microsoft edge j'ai une image toute noire
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button5Click(Sender: TObject);
var
moncanvas:tcanvas;
NpWnd, NpEdit: HWnd;
valeur:string;
begin
moncanvas:=tcanvas.Create;
valeur:=edit1.Text ;
NpEdit := strtoint(valeur);
moncanvas.Handle:=getdc(npedit);
form1.Image1.Canvas.CopyRect(rect(0,0,500,500),moncanvas,rect(0,0,500,500));
releasedc(moncanvas.Handle,npedit);
moncanvas.Destroy;
end;