Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 13-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
La propiedad biSystemMenu la tengo en False porque no quiero que se pueda cerrar esa ventana hasta que se introduzca por parte del usuario un valor válido en un TEdit.
Hola gluglu.

Otra opción para obtener el comportamiento que buscas, podría ser:
Código Delphi [-]
...
type
  TfrmChild = class(TForm)
    Edit1: TEdit;
    ...
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
  end;
...
implementation

procedure TfrmChild.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_CLOSE) and (Edit1.Text <> '1234') then // verificar contenido del Edit mediante una constante o variable
  begin
    ShowMessage('El dato ingresado es incorrecto');
    Abort
  end;
  DefaultHandler(Msg)
end;
...
También podés evaluar otras acciones: WM_SYSCOMMAND.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Restaurar ventana previamente minimizada jorosmtz API de Windows 9 20-07-2010 19:04:27
Ventana minimizada rod203 API de Windows 1 17-11-2008 19:25:45
Canvas (ventana minimizada) ganegri Gráficos 5 17-07-2007 22:45:40
Resaltar una ventana minimizada johncook Varios 2 27-11-2004 14:10:00
Ventana Minimizada diegofhernando Varios 4 16-05-2003 15:32:25


La franja horaria es GMT +2. Ahora son las 21:31:40.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi