Ver Mensaje Individual
  #15  
Antiguo 13-04-2007
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Reputación: 22
droguerman Va por buen camino
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
__________________
self.free;
Responder Con Cita