BorderIcons false

[jhonny]

Si quieres aprender sobre heredar Forms Creo que en la cara Oculta de Delphi 4 hablan sobre el tema "Herencia Visual" que seguramente leer al respecto te serviría bastante, Además no es tan complicado aprenderlo (A veces es el nombre el que nos asusta un poco ).

[[Caral]]

Gracias Jhonny
De eso se trata de seguir aprendiendo, lo voy a ver.
Saludos

[droguerman]

si tus formularios son modales puedes aprovechar del evento OnModalBegin pero tienes que seguir ciertos pasos, imagino que aqui los podemos mejorar:

Código Delphi [-]
type 
  TSINBotones = class
     procedure SinBotones(Sender: TObject);
end;

procedure TSINBotones.sinBotones(Sender: TObject);
begin
  Screen.Forms[Screen.FormCount-1].BorderIcons:= [];
end;

y en la parte de inicialización la modificamos así:

Código Delphi [-]
var
 xx: TSinBotones;
begin
  xx := TSinBotones.create;
  Application.Initialize;
  Application.OnModalBegin := xx.sinBotones;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

saludos