Hacer un formulario inamovible Pero en una aplicacion CLX

[ctronx]

Tal cual lo dice el titulo, Hacer un formulario inamovible Pero en una aplicacion CLX, ya me dieron vario consejos en otro hilo, pero resulta que NO funcionan para una aplicacion CLX, si alguien puede ayudarme se los agradecere mucho.

[ctronx]

Oigan, a poco nadie me puede ayudar para hacer un formulario inamovible en una aplicacion CLX.

GRACIAS

de antemano.

[Tomás]

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.

//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.