Hola ZayDun.
No sé si es lo que andás buscando, pero si tu imágen está maximizada en una ventana y con la propiedad
BorderSyle en
bsNone,
una forma que se me ocurre es obtener las coordenadas del form:
Código Delphi
[-]
function GetWndCoord(WndName: string): Trect;
var
Handle: THandle;
WP: TWindowPlacement;
begin
Handle:= FindWindow(PChar(WndName),nil);
if Handle <> 0 then
begin
GetWindowPlacement(Handle, @WP);
Result:= WP.rcNormalPosition;
end
else
raise Exception.Create('Ventana no encontrada');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
begin
R:= GetWndCoord('TBuscado');
ShowMessage('Left: '+IntToStr(R.Left)+#10#13+
'Top: '+IntToStr(R.Top)+#10#13+
'Right: '+IntToStr(R.Right)+#10#13+
'Bottom: '+IntToStr(R.Bottom));
end;
Saludos.