Cita:
roman comentó:
Hay otra forma que en realidad me gusta más
[...]
Código:
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í:
Código:
DeleteMenu(GetSystemMenu(Handle, false), SC_MOVE, MF_BYCOMMAND);
// Saludos