Como fijar una ventana?

[dec]

Hola,

Supongo que por ventana quieres referirte a un formulario ("TForm"). Se me ha ocurrido una barbaridad, pero, en fin, allá va... Hemos de capturar el mensaje "WM_MOVE" en el formulario en cuestión; al crear el formulario guardaremos las propiedades "Top" y "Left" en sendas variables de tipo "integer". La declaración del formulario quedaría tal que así:

Código Delphi [-]
    type
      TfrmPrincipal = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        FTop, FLeft: integer;
        procedure WM_MOVE(var Msg: TMessage); message WM_MOVE;
      end;

El evento "OnCreate" del formulario de este modo:

Código Delphi [-]
    procedure TfrmPrincipal.FormCreate(Sender: TObject);
    begin
      FTop := Top;
      FLeft := Left;
    end;

Y el procedimiento "WM_MOVE" de este otro:

Código Delphi [-]
    procedure TfrmPrincipal.WM_MOVE(var Msg: TMessage);
    begin
      if (FTop <> 0) then
      begin
        Top := FTop;
        Left := FLeft;
      end;
    end;

Comprobamos antes que "FTop" no sea cero, pues el procedimiento se ejecuta incluso antes del evento "OnCreate" (a lo que parece) de tal modo que de no hacerlo así el formulario se situaría en la esquina superior izquierda de la pantalla y no habría luego quien lo moviera de ahí.

Ahora, por favor, decidme que me calme y que me tranquilize, porque hay alguna propiedad, algún método, en fin, alguna forma mucho más elegante, aparente, práctica y efectiva de hacer lo que se trata de llevar a cabo. ¿Eh?