Obtener el ancho y alto de la ventana

[SaraTorres]

Empezado por Neftali

A partir de la solución que se muestra por ejemplo en este hilo, puedes hacer algo como esto:

Muchas gracias Neftali
El código funciona pero tengo una ventana de 640x480 y las nuevas
dimensiones que me da son: 656x519

Hay alguna manera para conseguir sólo el área de la ventana (client area)?
Saludos

[Neftali [Germán.Estévez]]

Puedes utilizar la API GetClientRect.
Sustituye el código anterior por este:

Código Delphi [-]
  if vMess <> 0 then begin
    GetWindowRect(VMess, Tam);
    Self.Caption := 'Posición: ' + InttoStr(Tam.Left) + ' ; ' + IntToStr(Tam.Top) + ' - '
                    +'Tamaño: ' + IntToStr(Tam.Right - Tam.Left) + 'x' + IntToStr(Tam.Bottom - Tam.Top);

    WINAPI.Windows.GetClientRect(VMess, TamClient);
    Self.Caption := Self.Caption + ' -  Cliente => ' +
                    'Posición: ' + InttoStr(TamClient.Left) + ' ; ' + IntToStr(TamClient.Top) + ' - '
                    +'Tamaño: ' + IntToStr(TamClient.Right - TamClient.Left) + 'x' + IntToStr(TamClient.Bottom - TamClient.Top);

  end
  else begin
    Self.Caption := 'Ventana de  no encontrada';
  end;

Si repites el ejemplo obtendrás esto:




Para una ventana de 640x480 su área cliente es: 624x421, que parece bastante lógico.
La diferencia de ancho son 16 pixels (de los bordes decho e izquierdo) y la diferencia de alto es 59 (del borde inferior y del título y del menú).

[SaraTorres]

Empezado por Neftali

Puedes utilizar...

Eres un Neftalí... gracias por tu gran apoyo a la comunidad.
Muchos saludos