[Lazarus-es] {Spam?} Cerrar ventanas

Javier Jait javierjait en yahoo.com
Lun Jul 14 19:15:22 CEST 2008


La solución que te puedo dar es solo para Windows. Yo lo usaba en delphi
 
procedure DeshabilitarClose;
var
  Flag: UINT;
  AppSysMenu: THandle;
begin
  AppSysMenu:=GetSystemMenu(Handle,False);
  Flag:=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
end;
 
Saludos

  _____  

De: lazarus-es-bounces en lazarus.freepascal.org
[mailto:lazarus-es-bounces en lazarus.freepascal.org] En nombre de jose
Enviado el: Sábado, 12 de Julio de 2008 4:02
Para: Spanish version of Lazarus List
Asunto: [Lazarus-es] {Spam?} Cerrar ventanas


Buenos dias foro:
 
     Tengo un pequeño problema, estoy realizando un programa en Lazarus, y
no se como deshabilitar los botones de la ventana, para que no me cierren el
programa en medio de un proceso.
 
        Alguien sabe como hacerlo.
 
Gracias
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20080714/8dc05315/attachment-0001.html>


More information about the Lazarus-es mailing list