BorderIcons false

[[Caral]]

Hola a todos y gracias de antemano por vuestra ayuda.
Problema:
Tengo muchos forms y quisiera poder en false la propiedad de borderIcons en todos.
biminimize
bimaximize
Pregunta:
Hay alguna forma de hacerlo por codigo, pero, no en cada form, sino en el principio de la aplicacion por ejemplo.? y tratar de que sea algo standar, osea que no tenga que mencionar el nombre de cada form por separado.
Gracias
Saludos

[roman]

Quizá algo como:

Código Delphi [-]
var
  J: Integer;

begin
  for J := 0 to Screen.FormCount - 1 do
    Screen.Forms[J].BorderIcons := [];
end;

Claro, eso sólo actua sobre los formularios que ya estén creados.

// Saludos

[jhonny]

Algo parecido se planteo hace poco y realmente todo seria mas sencillo si esas forms las hubieras heredado de una Form personalizada por ti mismo.

[[Caral]]

Gracias Roman:
Donde crees que seria mejor pone este codigo.?
Gracias Jhonny:
La verdad tienes razon, pero la verdad tendria que empezar por aprender como heredar, osea complicado para mi, recuerda soy bien novato.
Saludos

[[Caral]]

Hola
Bueno de algo estoy seguro, no entiendo.
Estoy haciendo esto:

Código Delphi [-]
 Screen.Forms[J].BorderIcons:= [biSystemMenu];

Y por supuesto no hace nada.
Lo puse en el form create.
No se como ponerlo en False.
Me siguen ayudando, por favor.
Gracias
Saludos

[jhonny]

El código de Roman es bastante Ingenioso (Sera Ingeniero? ) y te servirá para modificar dicha propiedad a los Forms que estén en pantalla en ese momento, yo lo llamaría justo después de crear el form.

[[Caral]]

Hola JHonny
Lo he intentado en el form create del form principal, pero no hace su funcion.
Me explico, si elimina el problema de este form principal, pero no de los que le siguen, osea solo del primero, no los demas.
Habra alguna forma de que lo haga.?
Saludos

[roman]

Si tus formularios los tienes en el Autocreate, entonces, en el archivo dpr verás algo como:

Código Delphi [-]
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  ...
  Application.Run;
end;

Pon el código después de la creación de los formularios:

Código Delphi [-]
var
  J: Integer;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  ...

  for J := 0 to Screen.FormCount - 1 do
    Screen.Forms[J].BorderIcons := [];

  Application.Run;
end;

// Saludos