Duvidas TDI Lazarus - Cordenadas do formulario filho

[adilsonpazzini]

Bom dia , queria saber se alguém poderia me ajudar , estou tentando desenvolver uma funcao para capturar a tela atual . informando as coordenadas (Left, Top, Width, Height) pois ai , dando certo , conseguiria informar apenas uma parte do formulário .

estou usando essa função ..

function AreaCapture(Left1, Top1, Width1, Height1 : integer) : TBitmap;
var
  ScreenDC : HDC;
begin
  Result := TBitmap.Create;
  ScreenDC := GetDC(0);
  try
    try
      Result.Width := Width1;
      Result.Height := Height1;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, Left1, Top1, SRCCOPY);
    finally
      ReleaseDC(0, ScreenDC);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;

 

a função esta OK, o problema, esta quando vou buscar as coordenadas do formulário filho, aberto pelo TDI, pois quando vou buscar FORM2.Left e FORM2.Top, ele sempre traz como 0, 0 .. ate entendo que deveria pegar então o TOP e LEFT do formulário principal que o chamou, mais mesmo assim . não tá dando certo . não sei onde estou errando .. se alguém tiver uma ideia e puder me dar uma luz , me ajudaria muito ...

Exemplo da chamada da funcao :

RlImage1.picture.Bitmap.Assign(AreaCapture(dm.MENU_Left+veig05.Left+5,  dm.MENU_Top + veig05.Top+Bevel1.Top+5,  1024, 530));

Editado 25 Setembro, 2017 por adilsonpazzini

[Daniel Simoes]

Tente usar o método: ClientToScreen()

[adilsonpazzini]

Deu certo Daniel .. putz valeu meu velho ... muito obrigado ...

 

var
 lPoint:TPoint;
begin
   lPoint := veig05.ClientToScreen(Point(0,0));
   RlImage1.picture.Bitmap.Assign(AreaCapture(lPoint.X+5, lPoint.Y+Bevel1.Top+5, 1024, 530));