Foros Club Delphi - Hacer un formulario inamovible Pero en una aplicacion CLX

Hola:

Esto lo copié de algún foro en alguna ocasión para utilizarlo pero al final no utilicé nada, por lo que no me preguntes nada sobre ello porque no lo se. Te lo mando por si puede servirte de algo.

Código:

//ANCLAR UN FORM



Tienes que capturar el mensaje apropiado. Pon en tu form el siguiente cóódigo: 



private 

FTop: integer; 

FLeft: integer; 



procedure OnWndMove(var message: TMessage); message WM_MOVE; 



Luego, en el OnCreate: 



FTop := Self.Top; 

FLeft := Self.Left; 



Y por úúltimo, el manejador para el mensaje WM_MOVE: 



procedure TForm1.OnWndMove(var message: TMessage); 

begin 



Self.Top := FTop; 

Self.Left := FLeft; 



end; 







OTRO SISTEMA

type

  TForm1 = class(TForm)

  private

    procedure WMSysCommand(var Message: TWMSysCommand);

    message WM_SYSCOMMAND;

  end;



implementation



procedure TForm1.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType and $FFF0 = SC_MOVE

    then Message.Result := 0

    else inherited;

end;







OTRO SISTEMA

Capturando y tratando el mensaje 



WM_WINDOWPOSCHANGING: 



Pon esta linea en la parte private de la declaracióón de tu form: 

code:



type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

               

procedure Quieto(var m: TWMWINDOWPOSCHANGED); message                  

                             WM_WINDOWPOSCHANGING ;



  { Y luego, en la implementation pon este procedimiento: }



procedure Tform1.Quieto(var m : TWMWINDOWPOSCHANGED);

begin

    m.windowpos.x := 200;  {X/posición izquierda}

    m.windowpos.y := 100;  {Y/posocióón derecha}

end;







OTRA FORMA

Hay otra forma que en realidad me gusta más. Funcionalmente es lo mismo pero tanto la de marcos como la mía dejan habilitado el menúú "Mover" del cuadro de control de la ventana mientras que esta de plano lo quita.



procedure TForm1.FormCreate(Sender: TObject);

begin

  DeleteMenu(GetSystemMenu(Handle, false), 1, MF_BYPOSITION);

end;



El problema aquíí es que el íítem "Mover" no siempre está en la misma posicióón. Por ejemplo, si el formulario tiene su propiedad BorderStyle en bsDialog, la posicióón del íítem ya no es 1 sino 0.



Creo que es mejor así:



DeleteMenu(GetSystemMenu(Handle, false), SC_MOVE, MF_BYCOMMAND);

Un saludo. Tomás.