No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCOS DELPHI] Bloquear / Prevenir Mover o Redimensionar Formulario.

 

en el area de declaraciones privadas, va este bloque.

delphi

private
  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
 
 {...}
implementation

en el Formulario, si se llama FORM1 entonces

delphi

procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
  if ((msg.CmdType and $FFF0) = SC_MOVE) or
     ((msg.CmdType and $FFF0) = SC_SIZE) then
  begin
    msg.result := 0;
    exit;
  end;
  inherited;
end;

Saludos!