Ver Mensaje Individual
  #4  
Antiguo 04-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 04-01-2011 a las 15:47:46.
Responder Con Cita