API
GetWindowRect
Ejemplo Fácil en un formulario simple con un botón: Encontrar el Alto y el Ancho de nuestro formulario:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
WR: TRect;
Ancho: integer;
Alto: integer;
begin
Windows.GetWindowRect(Handle, WR);
Ancho:= WR.Right - WR.Left;
Alto:= WR.Bottom - WR.Top;
end;
Saludos.