GetUpdateRec

[delphi.com.ar]

Empezado por jorodgar

ya habia leido ese hilo antes de poner el mio. Mi duda es la misma que se plantea alli. Y no se como llamar a esa función ni como recoger valores.

Yo me refería precisamente mi comentario en ese hilo, para obtener los mensajes de repintado.

Saludos!

[jorodgar]

Funciona bien pero para la ventana del formulario y lo que deseo es que me dijera si es posible el trozo de pantalla que ha cambiado.
Lo he intentado capturando el handle de la pantalla pero no funciona.
Sigo investigando. Os pongo el código :

Código Delphi [-]
 procedure TForm1.WMPAINT(Var Msg: TWMPaint);
 var
   R: TRect;
   p1,p2:TPoint;
   c: TCanvas;
   dc:HDC;
 begin
   {get the screen dc}
   dc := GetDc(0);
   if (dc = 0) then exit;
   if GetUpdateRect(dc, R, True) then
   begin
     if IsRectEmpty(R) then exit;
     p1:=R.TopLeft;
     p2:=R.BottomRight;
     Edit5.text:=IntTostr(p1.x);
     Edit6.text:=IntTostr(p1.y);
     Edit8.text:=IntTostr(p2.x);
     Edit9.text:=IntTostr(p2.y);
   end;
 end;

[delphi.com.ar]

Empezado por jorodgar

Funciona bien pero para la ventana del formulario y lo que deseo es que me dijera si es posible el trozo de pantalla que ha cambiado.
Lo he intentado capturando el handle de la pantalla pero no funciona.

No va a funcionar... haceme caso, probá lo que sugerí en ese hilo.

Saludos!

[jorodgar]

Entonces me temo que me constara más de lo que tenia pensado.
Gracias por tu ayuda.