Como puedo bloquear/inabilitar el boton cerrar y maximizar de una ventana

[BrunoBsso]

Empezado por antonio302050

gracias roman.
muy bueno tu procedimiento,
una pregunta como puedo bloquear/inabilitar el boton maximizar ?
porque tu procedimiento solo bloquea el boton cerrar

Código Delphi [-]
procedure HabilitarSysMaximizeItem(Form:TForm; Habilitar:Boolean);
begin
  case Habilitar of
    TRUE:  Form.BorderIcons:=Form.BorderIcons+[biMaximize];
    FALSE: Form.BorderIcons:=Form.BorderIcons-[biMaximize];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HabilitarSysMaximizeItem(Self,TRUE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  HabilitarSysMaximizeItem(Self,FALSE);
end;

Ahí tenés cómo habilitar e inhabilitar el botón Maximizar.
Saludos!!

[antonio302050]

Empezado por BrunoBsso

Código Delphi [-]procedure HabilitarSysMaximizeItem(Form:TForm; Habilitar:Boolean);
begin
case Habilitar of
TRUE: Form.BorderIcons:=Form.BorderIcons+[biMaximize];
FALSE: Form.BorderIcons:=Form.BorderIcons-[biMaximize];
end;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
HabilitarSysMaximizeItem(Self,TRUE);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
HabilitarSysMaximizeItem(Self,FALSE);
end;
Ahí tenés cómo habilitar e inhabilitar el botón Maximizar.
Saludos!!

Gracias, me parece muy bueno tu procedimiento es exactamente lo q necesitaba, para bloquear el boton maximizar.
sabes me va aservir de mucho para el juego q estoy programando
ya que yo queria q el juego solo tenga las dimensiones de 800x600.
Saludos.