j'ai fait comme tu m'a dit
j'ai ajouté la focntion suivante:
Camera1.paintto(DC,0,0);
je l'ai mis dans le onclick pour essayer car dans le onframe ca me met une ereeur
je vois une sorte de form apparaitre sur ma fenetre mais pas d'image.
procedure TMainForm.Camera1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
DC : HDC;
begin
DC := GetWindowDC(198010);
Camera1.paintto(DC,0,0);
end;
Tous mes addons sur
[ Lien ]