Saber la posicion de una imagen

[ZayDun]

Hola, he estado buscando por el foro y nada se parece a lo que intento hacer, para empezar tengo un componente WebBrowser y por otro lado un "Timagen" mi intencion es saber la posicion X,Y en la que se encuentra la imagen que tengo cargada en el TImage, tambien he pensado en hacer una captura al WebBrowser y que compare, pero esto ultimo no me vale ya que lo que yo quiero es que me diga la posicion. Un saludo

[Aleca]

las propiedades Top y Left del TImage no te sirven?

[ZayDun]

la propiedades Top y Left no me valen, por que lo que quiero realizar es que busque en un webrowser o una captura de pantalla la imagen que tengo cargada en un TImage, y que me diga en que posicion se encuentra. Gracias de todas formas.

[ecfisa]

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;

{ Ejemplo de llamada }
procedure TForm1.Button1Click(Sender: TObject);
var
 R: TRect;
begin
  // TBuscado es el nombre de clase del form que utilizé en la prueba
  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.