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

[antonio302050]

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

[antonio302050]

BrunoBsso sabes, nunca se me habia pasadopor la cabeza q hacia el evento CloseQuery,
es bueno aprender cosas nuevas , gracias

[BrunoBsso]

Empezado por antonio302050

BrunoBsso sabes, nunca se me habia pasadopor la cabeza q hacia el evento CloseQuery,
es bueno aprender cosas nuevas , gracias

Por si todavía te queda alguna duda, el OnCloseQuery (significa CuandoPidenCerrarlo más o menos) lo que hace es dispararse cuando alguien intenta cerrarlo y si está asignado ejecuta lo que pidas, luego verifica si vos permitís cerrarlo (el pparámetro CanClose) y si es TRUE lo cierra, sino simplemente no se cierra.
Ejemplo:
Un formulario con un TRadioGroup con 2 items. Cerrar (índice 0) permite cerrarlo y No Cerrar (índice 1) obviamente no lo permite. El evento OnCloseQuery lo verificará todo.

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  case RadioGroup1.ItemIndex of
    0: CanClose:=True; //Le permito cerrar
    1: CanClose:=False; //No le permito cerrar
  end;
end;

Saludos!

[antonio302050]

Empezado por BrunoBsso

Por si todavía te queda alguna duda, el OnCloseQuery (significa CuandoPidenCerrarlo más o menos) lo que hace es dispararse cuando alguien intenta cerrarlo y si está asignado ejecuta lo que pidas, luego verifica si vos permitís cerrarlo (el pparámetro CanClose) y si es TRUE lo cierra, sino simplemente no se cierra.
Ejemplo:
Un formulario con un TRadioGroup con 2 items. Cerrar (índice 0) permite cerrarlo y No Cerrar (índice 1) obviamente no lo permite. El evento OnCloseQuery lo verificará todo.

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case RadioGroup1.ItemIndex of
0: CanClose:=True; //Le permito cerrar
1: CanClose:=False; //No le permito cerrar
end;
end;




Saludos!

Como ya lo dije antes es bueno aprender algo nuevo todos los dias, y saber manejar los eventos de los formularios es algo importante ,algo q aprendi ayer fue usar el evento OnShow.. Tu ejemplo de como usar el evento OnCloseQuery es muy bueno de seguro me va ser muy ùtil, gracias.
Saludos .

[BrunoBsso]

Pero no hay por qué!
Mirá mi firma y vas a entender mi ideología
Saludos!

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