Difference between revisions of "Dialog Examples/es"

From Free Pascal wiki
Jump to navigationJump to search
m (Fixed syntax highlighting)
 
(25 intermediate revisions by 7 users not shown)
Line 1: Line 1:
 
{{Dialog Examples}}
 
{{Dialog Examples}}
 
[[category:Castellano|D]][[category:Español|D]]
 
[[category:Castellano|D]][[category:Español|D]]
 +
[[Category:LCL/es]][[Category:GUI/es]]
 
= Algunos diálogos útiles =
 
= Algunos diálogos útiles =
 
   Aquí tenemos algunos diálogos útiles, que no aparecen en la Paleta de Componentes:
 
   Aquí tenemos algunos diálogos útiles, que no aparecen en la Paleta de Componentes:
Line 15: Line 16:
  
 
==Diálogos con mensaje==
 
==Diálogos con mensaje==
   Las ventanas de diálogo con mensaje muestran un mensaje y esperan que se salga de ellos mediante la pulsación de unos de los botones que muestran, o cerrando la ventano con cualquier otra opción disponible.
+
   Las ventanas de diálogo con mensaje muestran un mensaje y esperan que se salga de ellos mediante la pulsación de unos de los botones que muestran, o cerrando la ventana con cualquier otra opción disponible.
  
===ShowMessage===
+
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/showmessage.html ShowMessage]===
<delphi> Procedure ShowMessage (const Msg: string);
+
<syntaxhighlight lang=pascal> Procedure ShowMessage (const Msg: string);
{el procedimiento está definido en la unidad ''Dialogs.pp''}</delphi>
+
{el procedimiento está definido en la unidad ''Dialogs.pp''}</syntaxhighlight>
  
 
&nbsp;&nbsp;&nbsp;Es la ventana de diálogo más simple: recibe una cadena como parámetro, y la muestra en una ventana predefinida, con un botón (OK o Aceptar) y un icono de Información. El diálogo se muestra hasta que se cierra con alguna de las opciones posibles: pulsar el único botón o el aspa de la barra de título.<br>
 
&nbsp;&nbsp;&nbsp;Es la ventana de diálogo más simple: recibe una cadena como parámetro, y la muestra en una ventana predefinida, con un botón (OK o Aceptar) y un icono de Información. El diálogo se muestra hasta que se cierra con alguna de las opciones posibles: pulsar el único botón o el aspa de la barra de título.<br>
Line 25: Line 26:
  
 
Ejemplo:
 
Ejemplo:
<delphi> Program UnMensajeConLazarus;
+
<syntaxhighlight lang=pascal> Program UnMensajeConLazarus;
 
   Uses Dialogs;
 
   Uses Dialogs;
 
   var  mi_mensaje: string;
 
   var  mi_mensaje: string;
Line 31: Line 32:
 
     mi_mensaje:= 'Este es un texto que se extiende a lo largo de'#13'de dos líneas';
 
     mi_mensaje:= 'Este es un texto que se extiende a lo largo de'#13'de dos líneas';
 
     ShowMessage (mi_mensaje);
 
     ShowMessage (mi_mensaje);
   end.</delphi>
+
   end.</syntaxhighlight>
  
&nbsp;&nbsp;&nbsp;(nota: cómo se puede ver en el ejemplo el ''const'' de la definición del procedimiento significa que no es necesaria una variable, aunque se puede utilizar una variable si lo queremos. Así mismo vemos que los mensajes los podemos dividir en las líneas que deseemos mediante ''#13'', esto lo podemos usar en todos los cuadros de los que hablamos aquí)
+
&nbsp;&nbsp;&nbsp;(nota: cómo se puede ver en el ejemplo el ''const'' de la definición del procedimiento significa que no es necesaria una variable, aunque se puede utilizar una variable si lo queremos. Así mismo vemos que los mensajes los podemos dividir en las líneas que deseemos mediante ''#13'', ''sLineBreak'' o ''LineEnding'', esto lo podemos usar en todos los cuadros de los que hablamos aquí)
 
<center>[[Image:Lazarus_ShowMessage.png]]</center>
 
<center>[[Image:Lazarus_ShowMessage.png]]</center>
  
===MessageBox===
+
===[http://lazarus-ccr.sourceforge.net/docs/lcl/forms/tapplication.messagebox.html MessageBox]===
<delphi> Function Application.MessageBox (Mensaje, Titulo: PChar; Marcadores: longint) : Integer;</delphi>
+
<syntaxhighlight lang=pascal> Function Application.MessageBox (Mensaje, Titulo: PChar; Marcadores: longint) : Integer;</syntaxhighlight>
  
 
&nbsp;&nbsp;&nbsp;Función definida en '''''Forms.pp''''' como parte de ''TApplication'', de ahí que tengamos que usarla de esta forma: Application.Messagebox ( ); o bien utilizando la construcción 'With Application do ...'].  
 
&nbsp;&nbsp;&nbsp;Función definida en '''''Forms.pp''''' como parte de ''TApplication'', de ahí que tengamos que usarla de esta forma: Application.Messagebox ( ); o bien utilizando la construcción 'With Application do ...'].  
Line 52: Line 53:
  
 
&nbsp;&nbsp;&nbsp;Ejemplo:
 
&nbsp;&nbsp;&nbsp;Ejemplo:
<delphi> Uses Forms, Dialogs, LCLType;
+
<syntaxhighlight lang=pascal> Uses Forms, Dialogs, LCLType;
 
   
 
   
 
  Procedure MuestraMessageBox;
 
  Procedure MuestraMessageBox;
Line 70: Line 71:
 
       MessageBox (texto, 'Respuesta', MB_ICONHAND); // no recogemos el valor devuelto por MessageBox
 
       MessageBox (texto, 'Respuesta', MB_ICONHAND); // no recogemos el valor devuelto por MessageBox
 
     end; //with   
 
     end; //with   
  end; //procedmiento</delphi>
+
  end; //procedmiento</syntaxhighlight>
 
<center>[[Image:Lazarus_MessageBox.png]]      [[Image:Lazarus_MessageBoxRespuesta.png]]
 
<center>[[Image:Lazarus_MessageBox.png]]      [[Image:Lazarus_MessageBoxRespuesta.png]]
 
http://lazarus-ccr.sourceforge.net/kbdata/MessageBoxDemo.png  http://lazarus-ccr.sourceforge.net/kbdata/ReplyYes.png
 
http://lazarus-ccr.sourceforge.net/kbdata/MessageBoxDemo.png  http://lazarus-ccr.sourceforge.net/kbdata/ReplyYes.png
Line 76: Line 77:
  
 
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/messagedlg.html MessageDlg]===
 
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/messagedlg.html MessageDlg]===
<delphi>function MessageDlg(const aMsg:String; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx:LongInt):Integer;
+
<syntaxhighlight lang=pascal>function MessageDlg(const aMsg:String; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx:LongInt):Integer;
 
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;  
 
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;  
 
                     Buttons:TMsgDlgButtons; HelpCtx:longInt):Integer;
 
                     Buttons:TMsgDlgButtons; HelpCtx:longInt):Integer;
Line 82: Line 83:
 
                     Buttons:TMsgDlgButtons; HelpCtx:LongInt;  DefaultButton:TMsgDlgBtn):Integer;
 
                     Buttons:TMsgDlgButtons; HelpCtx:LongInt;  DefaultButton:TMsgDlgBtn):Integer;
 
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;  
 
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;  
                     Buttons:TMsgDlgButtons; const HelpKeyword: String):Integer;</delphi>
+
                     Buttons:TMsgDlgButtons; const HelpKeyword: String):Integer;</syntaxhighlight>
 
:Ver [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgtype.html Tipos de mensaje(TMsgDlgType)], [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbuttons.html Botones(TMsgDlgButtons)] [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbtn.html Botones(TMsgDlgBtn)] Las dos clase de botones definen exactamente lo mismo¿¡!?)
 
:Ver [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgtype.html Tipos de mensaje(TMsgDlgType)], [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbuttons.html Botones(TMsgDlgButtons)] [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbtn.html Botones(TMsgDlgBtn)] Las dos clase de botones definen exactamente lo mismo¿¡!?)
  
Line 96: Line 97:
  
 
:Ejemplo:
 
:Ejemplo:
<delphi> Uses forms, dialogs, lcltype, controls;
+
<syntaxhighlight lang=pascal> Uses forms, dialogs, lcltype, controls;
 
   
 
   
 
  procedure EstoSiQueEsUnMensaje;
 
  procedure EstoSiQueEsUnMensaje;
Line 106: Line 107:
 
     MessageDlg ('Cosas para no olvidar', 'las personas son las que dan sentido,'#13+
 
     MessageDlg ('Cosas para no olvidar', 'las personas son las que dan sentido,'#13+
 
                               'coherencia y lógica a las cosas', tipo, botones,0);
 
                               'coherencia y lógica a las cosas', tipo, botones,0);
   end;</delphi>
+
   end;</syntaxhighlight>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/Question.png<br>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/Question.png<br>
  
 
  [[Image:Lazarus_MessageDlg.png]]</center>
 
  [[Image:Lazarus_MessageDlg.png]]</center>
 +
 +
=== El diálogo ''''QuestionDlg'''' ===
 +
&nbsp;&nbsp;&nbsp;El diálogo ''''QuestionDlg'''' permite cambiar los rótulos de los botones y determinar los botones predetermindo y de cancelar.
 +
&nbsp;&nbsp;&nbsp;Ejemplo:
 +
<syntaxhighlight lang=pascal>
 +
    case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYes,'Positivo', mrNo, 'Negativo', mrCancel,'Predetermindado'],'La ayuda') of
 +
        mrYes: QuestionDlg ('Este es el Título','Has elegido "Positivo"',mtCustom,[mrOK,'¡Muy bien!'],'');
 +
        mrNo:  QuestionDlg ('Este es el Título','¡Oh! has elegido "Negativo"',mtCustom,[mrOK,'Exacto'],'');
 +
        mrCancel: QuestionDlg ('Título','Has cancelado el diálogo con ESC o el botón "Predetermindado".',mtCustom,[mrOK,'Correcto'],'');
 +
    end;
 +
</syntaxhighlight>
 +
<center> [[image:QuestionDlg_es_linux_qt.png‎]]
 +
</center>
 +
 +
{{Nota|¡Si el usuario cancela el diálogo y no hay un botón definido como 'IsCancel', mrCancel será devuelto! Si quieres redirigir ESC/cerrar a u botón concreto utiliza el parámetro 'IsCancel' tras el botón deseado . (''Nota del traductor'', lo traduzco pero no consigo reproducir esta funcionalidad)}}
 +
 +
&nbsp;&nbsp;&nbsp;Ejemplos avanzados con botones (tomados de promptdialog.inc)
 +
<syntaxhighlight lang=pascal>
 +
    [mrOk, '¡Vale!',mrCancel,'Cancela Ahora',mrIgnore, 'Ignorar',300,'¡Hazlo!','IsDefault']
 +
</syntaxhighlight>
 +
&nbsp;&nbsp;&nbsp;Se muestran cuatro botones:
 +
* '¡Vale' que devuelve ''mrOk''
 +
* 'Cancela Ahora'  que devuelve ''mrCancel''
 +
* 'Ignorar'  que devuelve ''mrIgnore''
 +
* '¡Hazlo!'  que devuelve ''300''. Este es el botón predeterminado (con el foco)
 +
 +
&nbsp;&nbsp;&nbsp;Es habitual que los botones en los diálogos de Lazarus tengan iconos. Con el fin de evitar que los iconos se muestren, se pueden utilizar valores no normalizados como resultado de los mensajes. El valor normalizado má alto hasta hoy es 11. Por ejemplo:
 +
 +
<syntaxhighlight lang=pascal>
 +
  case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[20,'Positivo', 21, 'Negativo',22,'No lo sé','IsDefault'],'') of
 +
    20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[20,'Eso está bien'],'');
 +
    21:  QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[21,'Correcto'],'');
 +
    22:  QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[22,'Tal vez'],'');
 +
  end;
 +
</syntaxhighlight>
 +
&nbsp;&nbsp;&nbsp;Con el fin de facilitar el trabajo, definiremos constantes. Por ejemplo:
 +
 +
<syntaxhighlight lang=pascal>
 +
const
 +
  mrNoneNI=      20;
 +
  mrOkNI=        mrNoneNI+1;
 +
  mrCancelNI=    mrNoneNI+2;
 +
  mrAbortNI=    mrNoneNI+3;
 +
  mrRetryNI=    mrNoneNI+4;
 +
  mrIgnoreNI=    mrNoneNI+5;
 +
  mrYesNI=      mrNoneNI+6;
 +
  mrNoNI=        mrNoneNI+7;
 +
  mrAllNI=      mrNoneNI+8;
 +
  mrYesToAllNI=  mrNoneNI+10;
 +
  mrCloseNI=    mrNoneNI+11;
 +
  mrLastNI=      mrCloseNI;
 +
begin
 +
  case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYesN,'Positivo', mrNoNI, 'Negativo',22,'No lo sé','IsDefault'],'') of
 +
    20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[mrYesNI,'Eso está bien'],'');
 +
    21:  QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[mrNoNI,'Correcto'],'');
 +
    22:  QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[mrCancelNI,'Tal vez'],'');
 +
  end;//case
 +
end;
 +
</syntaxhighlight>
 +
<center> [[File:QuestionDlg_esp_002.png]] </center>
  
 
== Diálogos de entrada de texto ==
 
== Diálogos de entrada de texto ==
===InputBox===
+
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputbox.html InputBox]===
 
&nbsp;&nbsp;&nbsp;Junto con el mensaje muestra una caja de edición para que el usuario pueda escribir un texto que será pasado a la aplicación.
 
&nbsp;&nbsp;&nbsp;Junto con el mensaje muestra una caja de edición para que el usuario pueda escribir un texto que será pasado a la aplicación.
<delphi> Function InputBox(const ATitulo, ACursor, ADefecto : String) : String;</delphi>
+
<syntaxhighlight lang=pascal> Function InputBox(const ATitulo, ACursor, ADefecto : String) : String;</syntaxhighlight>
 
&nbsp;&nbsp;&nbsp;Se puede especificar el título de la Ventana (ATitulo), el mensaje que indicará al usuario que tipo de entrada de texto se espera que realice (ACursor) e incluso un texto ya predefinido (ADefecto). El texto escrito por el usuario o el proporcionado es devuelto a la aplicación como resultado de la función. La vnta muestr loa botones mbOK y mbCancel)
 
&nbsp;&nbsp;&nbsp;Se puede especificar el título de la Ventana (ATitulo), el mensaje que indicará al usuario que tipo de entrada de texto se espera que realice (ACursor) e incluso un texto ya predefinido (ADefecto). El texto escrito por el usuario o el proporcionado es devuelto a la aplicación como resultado de la función. La vnta muestr loa botones mbOK y mbCancel)
  
 
&nbsp;&nbsp;&nbsp;Ejemplo:
 
&nbsp;&nbsp;&nbsp;Ejemplo:
<delphi> Uses forms, lcltype, dialogs, controls;
+
<syntaxhighlight lang=pascal> Uses forms, lcltype, dialogs, controls;
 
   
 
   
 
  procedure VentanaEntradaTexto;
 
  procedure VentanaEntradaTexto;
Line 127: Line 188:
 
                             'Si no quieres escribir, este es el texto que se devolverá');
 
                             'Si no quieres escribir, este es el texto que se devolverá');
 
     ShowMessage (textoUsuario);
 
     ShowMessage (textoUsuario);
   end</delphi>
+
   end</syntaxhighlight>
 
<center>[[Image:Lazarus_InputBox.png]]</center>
 
<center>[[Image:Lazarus_InputBox.png]]</center>
&nbsp;&nbsp;&nbsp;(nota: ojo con esta ventana, el texto de ''ACursor'' tiene un límite de longitud visible, ya que la ventana tiene un ancho y un alto limitado y fijo, y muestrará el texto en una única línea -al menos a día de hoy-)
+
&nbsp;&nbsp;&nbsp;(nota: ojo con esta ventana, el texto de ''ACursor'' tiene un límite de longitud visible, ya que la ventana tiene un ancho y un alto limitado y fijo, y mostrará el texto en una única línea -al menos a día de hoy-)
  
===InputQuery===
+
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html InputQuery]===
<delphi> Function InputQuery(const ATitulo, ACursor : String; Enmascarar : Boolean; var TextoUsuario : String) : Boolean;
+
<syntaxhighlight lang=pascal> Function InputQuery(const ATitulo, ACursor : String; Enmascarar : Boolean; var TextoUsuario : String) : Boolean;
  Function InputQuery(const ATitulo, ACursor : String; var TextoUsuario : String) : Boolean;</delphi>
+
  Function InputQuery(const ATitulo, ACursor : String; var TextoUsuario : String) : Boolean;</syntaxhighlight>
  
&nbsp;&nbsp;&nbsp;La función [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html '''''InputQuery'''''],  que como [[Dialog_Examples#InputBox|''InputBox'']], permite al usuario introducir texto, tiene dos versiones; en la primera se utiliza el parámetro ''Enmascarar'' que indica si el texto que escribe el usuario se sustituye por asteriscos (valor ''true'') o no (''false''), como para escribir una contraseña; en la segunda se omite este parámetro, lo que equivale a  darle el valor ''false'' El texto introducido por el usuario se devuelve en el parámetro ''TextoUsuario'' (por eso es variable); la función devuelve ''true'' si se presionó el botón ''Aceptar'', o ''falso'' si se cerró la venta de cualquier otra forma(por ejemplo, pulsando el icono 'X' de la barra de título).
+
&nbsp;&nbsp;&nbsp;La función [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html '''''InputQuery'''''],  que como [[Dialog_Examples#InputBox|''InputBox'']], permite al usuario introducir texto, tiene dos versiones; en la primera se utiliza el parámetro ''Enmascarar'' que indica si el texto que escribe el usuario se sustituye por asteriscos (valor ''true'') o no (''false''), como para escribir una contraseña; en la segunda se omite este parámetro, lo que equivale a  darle el valor ''false''. El texto introducido por el usuario se devuelve en el parámetro ''TextoUsuario'' (por eso es variable); la función devuelve ''true'' si se presionó el botón ''Aceptar'', o ''falso'' si se cerró la ventana de cualquier otra forma (por ejemplo, pulsando el icono 'X' de la barra de título).
  
 
&nbsp;&nbsp;&nbsp;Ejemplo:
 
&nbsp;&nbsp;&nbsp;Ejemplo:
<delphi> Uses forms, lcltype, dialogs, controls;
+
<syntaxhighlight lang=pascal> Uses forms, lcltype, dialogs, controls;
 
   
 
   
 
  procedure TryInputQuery;
 
  procedure TryInputQuery;
Line 153: Line 214:
 
         ShowMessage (' Tu respuesta ha sido: ' + TextoUsuario);
 
         ShowMessage (' Tu respuesta ha sido: ' + TextoUsuario);
 
       end;
 
       end;
   end;</delphi>
+
   end;</syntaxhighlight>
 
<center>[[Image:Lazarus_InputQuery.png]]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[[Image:Lazarus_InputQueryNoMascara.png]]</center>
 
<center>[[Image:Lazarus_InputQuery.png]]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[[Image:Lazarus_InputQueryNoMascara.png]]</center>
&nbsp;&nbsp;&nbsp;(nota: en la segunda imagen apreciamos que ''InputQuery'' padece las mismas limitaciones que ''InputBox'' repesto de lo que se puede mostrar por la limitación de tamaño de la ventana.
+
&nbsp;&nbsp;&nbsp;Nota: en la segunda imagen apreciamos que ''InputQuery'' padece el mismo defecto que ''InputBox'' respecto del texto que puede mostrar por la limitación de las dimensiones de la ventana.
 +
En Linux, con Lazarus 0.09.30-0 y FPC 2.4.2 este defecto no aparece y la ventana se expande; además se pueden crear nuevas líneas con #13)
 +
<center>[[Image:InputQuery_ES_Linux_LAZ_0.9.30-0_FPC-2.4.2.png]]</center>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/MessageDlgQuestion.png </center>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/MessageDlgQuestion.png </center>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/DontBeSillly.png </center>
 
<center> http://lazarus-ccr.sourceforge.net/kbdata/DontBeSillly.png </center>
  
===PasswordBox===
+
===[http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/passwordbox.html PasswordBox]===
<delphi> Function PasswordBox(const ACaption, APrompt : String) : String;</delphi>
+
<syntaxhighlight lang=pascal> Function PasswordBox(const ACaption, APrompt : String) : String;</syntaxhighlight>
 
&nbsp;&nbsp;&nbsp;Su comportamiento es parecido a [[Dialog_Examples#InputBox|InputBox]], consistiendo las diferencias en que no hay texto por defecto y el texto que el usuario escribe se enmascara.
 
&nbsp;&nbsp;&nbsp;Su comportamiento es parecido a [[Dialog_Examples#InputBox|InputBox]], consistiendo las diferencias en que no hay texto por defecto y el texto que el usuario escribe se enmascara.
  
Line 167: Line 230:
 
&nbsp;&nbsp;&nbsp;Constantes y tipos importantes que se utilizan en  estos diálogos y que están predefinidas en la biblioteca LCL:
 
&nbsp;&nbsp;&nbsp;Constantes y tipos importantes que se utilizan en  estos diálogos y que están predefinidas en la biblioteca LCL:
  
&nbsp;&nbsp;&nbsp;Constantes enteras para definir tipos de botones e iconos que se muestran en MessageBox, definidiados en la unidad '''''LCLType.pp''''':
+
&nbsp;&nbsp;&nbsp;Constantes enteras para definir tipos de botones e iconos que se muestran en MessageBox, definidos en la unidad '''''LCLType.pp''''':
<delphi> //Botones
+
<syntaxhighlight lang=pascal> //Botones
 
  MB_OK = $00000000;
 
  MB_OK = $00000000;
 
  MB_OKCANCEL = $00000001;
 
  MB_OKCANCEL = $00000001;
Line 182: Line 245:
 
  MB_ICONWARNING = MB_ICONEXCLAMATION;
 
  MB_ICONWARNING = MB_ICONEXCLAMATION;
 
  MB_ICONERROR = MB_ICONHAND;
 
  MB_ICONERROR = MB_ICONHAND;
  MB_ICONINFORMATION = MB_ICONASTERICK;
+
  MB_ICONINFORMATION = MB_ICONASTERICK;</syntaxhighlight>
</delphi>
 
 
&nbsp;&nbsp;&nbsp;Constantes enteras que definen el valor devuelto desde MessageBox según el botón que se presione:
 
&nbsp;&nbsp;&nbsp;Constantes enteras que definen el valor devuelto desde MessageBox según el botón que se presione:
<delphi> IDOK = 1; ID_OK = IDOK;
+
 
 +
<syntaxhighlight lang=pascal>
 +
IDOK = 1; ID_OK = IDOK;
 
  IDCANCEL = 2; ID_CANCEL = IDCANCEL;
 
  IDCANCEL = 2; ID_CANCEL = IDCANCEL;
 
  IDABORT = 3; ID_ABORT = IDABORT;
 
  IDABORT = 3; ID_ABORT = IDABORT;
Line 193: Line 257:
 
  IDNO = 7; ID_NO = IDNO;
 
  IDNO = 7; ID_NO = IDNO;
 
  IDCLOSE = 8; ID_CLOSE = IDCLOSE;
 
  IDCLOSE = 8; ID_CLOSE = IDCLOSE;
  IDHELP = 9; ID_HELP = IDHELP;</delphi>
+
  IDHELP = 9; ID_HELP = IDHELP;</syntaxhighlight>
 
&nbsp;&nbsp;&nbsp;Definen si el botón por omisión es el primero, el segundo o el tercero:
 
&nbsp;&nbsp;&nbsp;Definen si el botón por omisión es el primero, el segundo o el tercero:
<delphi> MB_DEFBUTTON1 = $00000000;
+
 
 +
<syntaxhighlight lang=pascal>
 +
MB_DEFBUTTON1 = $00000000;
 
  MB_DEFBUTTON2 = $00000100;
 
  MB_DEFBUTTON2 = $00000100;
 
  MB_DEFBUTTON3 = $00000200;
 
  MB_DEFBUTTON3 = $00000200;
  MB_DEFBUTTON4 = $00000300;</delphi>
+
  MB_DEFBUTTON4 = $00000300;</syntaxhighlight>
 
&nbsp;&nbsp;&nbsp;El valor del parámetro Marcadores de ''MessageBox'' se forma al añadir una constante botón [MB_OK..MB_RETRYCANCEL], una constante icono [MB_ICONHAND..MB_ICONINFORMATION] y una constante opcional, de botón por defecto [MB_DEFBUTTON1..MB_DEFBUTTON3]
 
&nbsp;&nbsp;&nbsp;El valor del parámetro Marcadores de ''MessageBox'' se forma al añadir una constante botón [MB_OK..MB_RETRYCANCEL], una constante icono [MB_ICONHAND..MB_ICONINFORMATION] y una constante opcional, de botón por defecto [MB_DEFBUTTON1..MB_DEFBUTTON3]
  
Line 204: Line 270:
 
AType de TMsgDlgType y AButtons de TMSgDlgButtons:
 
AType de TMsgDlgType y AButtons de TMSgDlgButtons:
  
{ Definido en Dialogs.pp }
+
<syntaxhighlight lang=pascal> { Definido en Dialogs.pp }
<delphi> type
+
type
 
   TMsgDlgType = (mtWarning, mtError, mtInformation,  mtConfirmation, mtCustom);
 
   TMsgDlgType = (mtWarning, mtError, mtInformation,  mtConfirmation, mtCustom);
 
   TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
 
   TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
Line 234: Line 300:
 
   mrNoToAll = mrNone + 9;
 
   mrNoToAll = mrNone + 9;
 
   mrYesToAll = mrNone + 10;
 
   mrYesToAll = mrNone + 10;
   mrLast = mrYesToAll;</delphi>
+
   mrLast = mrYesToAll;</syntaxhighlight>
 
 
&nbsp;&nbsp;&nbsp;Sobre las ventanas de diálogo: [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/index-5.html Referencia de la unidad '''''Dialogs''''': Procedimientos y fucniones]
 
 
 
==Créditos==
 
&nbsp;&nbsp;&nbsp;Traducción original por [[user:Mgsalvador|Mgsalvador]]
 
 
 
&nbsp;&nbsp;&nbsp;Reescritura, formato más legible, [http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_HTML=2&TIPO_BUS=3&LEMA=estampa#0_4 estampas]  y ejemplos más ilustrativos. [[user:Iskraelectrica|Iskraelectrica]]. 2008/06/14
 
  
&nbsp;&nbsp;&nbsp; La versión original de esta página se importó desde el epikwiki [http://lazarus-ccr.sourceforge.net/index.php?wiki=DialogExamples version].
+
&nbsp;&nbsp;&nbsp;Sobre las ventanas de diálogo: [http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/index-5.html Referencia de la unidad '''''Dialogs''''': Procedimientos y funciones]

Latest revision as of 07:11, 13 February 2020

Deutsch (de) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) polski (pl) русский (ru) slovenčina (sk) 中文(中国大陆)‎ (zh_CN)

Algunos diálogos útiles

   Aquí tenemos algunos diálogos útiles, que no aparecen en la Paleta de Componentes:

   Cada uno de ellos da lugar a la aparición de una ventana emergente, que contiene cierta información y espera una respuesta del usuario: presionar un botón, introducir algún texto o ambas cosaa. Los programadores tienen poco control sobre el formato, tamaño o posición de estas ventanas, pero pueden cambiar su contenido textual.
   La razón de que haya varias alternativas es permitir diferentes métodos de crear la ventana y de recibir datos de respuesta para procesar en nuestro código.

Diálogos con mensaje

   Las ventanas de diálogo con mensaje muestran un mensaje y esperan que se salga de ellos mediante la pulsación de unos de los botones que muestran, o cerrando la ventana con cualquier otra opción disponible.

ShowMessage

 Procedure ShowMessage (const Msg: string);
{el procedimiento está definido en la unidad ''Dialogs.pp''}

   Es la ventana de diálogo más simple: recibe una cadena como parámetro, y la muestra en una ventana predefinida, con un botón (OK o Aceptar) y un icono de Información. El diálogo se muestra hasta que se cierra con alguna de las opciones posibles: pulsar el único botón o el aspa de la barra de título.
  La ventana del diálogo es modal, es decir, se muestra, toma el foco y no permite interacción con la aplicación que la originó.

Ejemplo:

 Program UnMensajeConLazarus;
  Uses Dialogs;
  var  mi_mensaje: string;
  begin
    mi_mensaje:= 'Este es un texto que se extiende a lo largo de'#13'de dos líneas';
    ShowMessage (mi_mensaje);
  end.

   (nota: cómo se puede ver en el ejemplo el const de la definición del procedimiento significa que no es necesaria una variable, aunque se puede utilizar una variable si lo queremos. Así mismo vemos que los mensajes los podemos dividir en las líneas que deseemos mediante #13, sLineBreak o LineEnding, esto lo podemos usar en todos los cuadros de los que hablamos aquí)

Lazarus ShowMessage.png

MessageBox

 Function Application.MessageBox (Mensaje, Titulo: PChar; Marcadores: longint) : Integer;

   Función definida en Forms.pp como parte de TApplication, de ahí que tengamos que usarla de esta forma: Application.Messagebox ( ); o bien utilizando la construcción 'With Application do ...'].

   Sus parámetros:

  • Mensaje: El texto del mensaje que queremos mostrar al usuario;
  • Titulo: El título de la ventana del cuadro de diálogo;
  • Marcadores: Un entero construido al sumar varias constantes (definidas en el módulo LCLType) que definen el icono y botones que mostrará el cuadro, por ejemplo MB_ABORTRETRYIGNORE + MB_ICONQUESTION hará que se muestre un signo de interrogación (?) y tres botones: Abortar, Reintentar e Ignorar.

   La función devuelve un valor entero que corresponde al botón que se presionó; su valor se puede determinar por referencia a las constantes [IDOK..IDHELP]

  Si no necesitamos el valor del botón pulsado la podemos invocar cómo un procedimiento, en Pascal no es obligatorio recoger el valor devuelto por una función - véase el ejemplo siguiente:

   Ejemplo:

 Uses Forms, Dialogs, LCLType;
 
 Procedure MuestraMessageBox;
  var resp, estilo: integer;
    texto: pchar;
 begin
   with application do
     begin
      estilo :=  MB_ABORTRETRYIGNORE + MB_ICONQUESTION;
      resp :=  MessageBox ('Pulsa un botón', 'Ejemplo de MessageBox', estilo); //recogemos el valor de la función
      case resp of
        IDABORT: texto := 'Abortar';
        IDRETRY: texto :=  'Reintentar';
        IDIGNORE: texto := 'Ignorar';
        else texto := 'Has cerrado el cuadro con el aspa: ';
      end; //case
      MessageBox (texto, 'Respuesta', MB_ICONHAND); // no recogemos el valor devuelto por MessageBox
     end; //with   
 end; //procedmiento
Lazarus MessageBox.png Lazarus MessageBoxRespuesta.png

http://lazarus-ccr.sourceforge.net/kbdata/MessageBoxDemo.png http://lazarus-ccr.sourceforge.net/kbdata/ReplyYes.png

MessageDlg

function MessageDlg(const aMsg:String; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx:LongInt):Integer;
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType; 
                     Buttons:TMsgDlgButtons; HelpCtx:longInt):Integer;
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType; 
                     Buttons:TMsgDlgButtons; HelpCtx:LongInt;  DefaultButton:TMsgDlgBtn):Integer;
function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType; 
                    Buttons:TMsgDlgButtons; const HelpKeyword: String):Integer;
Ver Tipos de mensaje(TMsgDlgType), Botones(TMsgDlgButtons) Botones(TMsgDlgBtn) Las dos clase de botones definen exactamente lo mismo¿¡!?)

   Hay cuatro versiones de esta función, en la primera al omitir el título, se pondrá cómo título el identificador de la aplicación; en las demás podemos poner como título de la ventana el texto que nos convenga. En la tercera podemos especificar mediante el parámetro DefaultButton qué botón será el activo por defecto. En la cuarta podemos mostrar la ayuda especificada en HelpKeyword.

   Es el más completo y elaborado de las ventanas de diálogo, y permite al programador un considerable control sobre su aspecto.

   Los parámetros que definen el tipo de cuadro y el icono es un tipo enumerado, y los botones se pueden especificar como un conjunto entre corchetes, por ejemplo [mbRetry, mbIgnore, mbAbort, mbCancel].

   HelpCtx se utiliza para especificar qué tema del archivo de ayuda debe ser demostrado, o cero para no mostrar nínguno. Si se utiliza HelpKeyword se mostrará la ayuda de esa palabra.

   El valor devuelto por la función corresponde al botón presionado, expresado como un entero (ver más edelante las definiciones de [mrNone..mrAll]).

Ejemplo:
 Uses forms, dialogs, lcltype, controls;
 
 procedure EstoSiQueEsUnMensaje;
   var  tipo: TMsgDlgType;
        botones: TMsgDlgButtons;
   begin
    tipo := mtWarning;
    botones:= [mbYesToAll, mbNoToAll];
    MessageDlg ('Cosas para no olvidar', 'las personas son las que dan sentido,'#13+
                              'coherencia y lógica a las cosas', tipo, botones,0);
   end;
http://lazarus-ccr.sourceforge.net/kbdata/Question.png
Lazarus MessageDlg.png

El diálogo 'QuestionDlg'

   El diálogo 'QuestionDlg' permite cambiar los rótulos de los botones y determinar los botones predetermindo y de cancelar.    Ejemplo:

    case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYes,'Positivo', mrNo, 'Negativo', mrCancel,'Predetermindado'],'La ayuda') of
        mrYes: QuestionDlg ('Este es el Título','Has elegido "Positivo"',mtCustom,[mrOK,'¡Muy bien!'],'');
        mrNo:  QuestionDlg ('Este es el Título','¡Oh! has elegido "Negativo"',mtCustom,[mrOK,'Exacto'],'');
        mrCancel: QuestionDlg ('Título','Has cancelado el diálogo con ESC o el botón "Predetermindado".',mtCustom,[mrOK,'Correcto'],'');
    end;
QuestionDlg es linux qt.png
Note-icon.png

Nota: ¡Si el usuario cancela el diálogo y no hay un botón definido como 'IsCancel', mrCancel será devuelto! Si quieres redirigir ESC/cerrar a u botón concreto utiliza el parámetro 'IsCancel' tras el botón deseado . (Nota del traductor, lo traduzco pero no consigo reproducir esta funcionalidad)

   Ejemplos avanzados con botones (tomados de promptdialog.inc)

    [mrOk, '¡Vale!',mrCancel,'Cancela Ahora',mrIgnore, 'Ignorar',300,'¡Hazlo!','IsDefault']

   Se muestran cuatro botones:

  • '¡Vale' que devuelve mrOk
  • 'Cancela Ahora' que devuelve mrCancel
  • 'Ignorar' que devuelve mrIgnore
  • '¡Hazlo!' que devuelve 300. Este es el botón predeterminado (con el foco)

   Es habitual que los botones en los diálogos de Lazarus tengan iconos. Con el fin de evitar que los iconos se muestren, se pueden utilizar valores no normalizados como resultado de los mensajes. El valor normalizado má alto hasta hoy es 11. Por ejemplo:

  case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[20,'Positivo', 21, 'Negativo',22,'No lo sé','IsDefault'],'') of
     20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[20,'Eso está bien'],'');
     21:  QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[21,'Correcto'],'');
     22:  QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[22,'Tal vez'],'');
  end;

   Con el fin de facilitar el trabajo, definiremos constantes. Por ejemplo:

const
  mrNoneNI=      20;
  mrOkNI=        mrNoneNI+1;
  mrCancelNI=    mrNoneNI+2;
  mrAbortNI=     mrNoneNI+3;
  mrRetryNI=     mrNoneNI+4;
  mrIgnoreNI=    mrNoneNI+5;
  mrYesNI=       mrNoneNI+6;
  mrNoNI=        mrNoneNI+7;
  mrAllNI=       mrNoneNI+8;
  mrYesToAllNI=  mrNoneNI+10;
  mrCloseNI=     mrNoneNI+11;
  mrLastNI=      mrCloseNI; 
begin
  case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYesN,'Positivo', mrNoNI, 'Negativo',22,'No lo sé','IsDefault'],'') of
     20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[mrYesNI,'Eso está bien'],'');
     21:  QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[mrNoNI,'Correcto'],'');
     22:  QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[mrCancelNI,'Tal vez'],'');
  end;//case
end;
QuestionDlg esp 002.png

Diálogos de entrada de texto

InputBox

   Junto con el mensaje muestra una caja de edición para que el usuario pueda escribir un texto que será pasado a la aplicación.

 Function InputBox(const ATitulo, ACursor, ADefecto : String) : String;

   Se puede especificar el título de la Ventana (ATitulo), el mensaje que indicará al usuario que tipo de entrada de texto se espera que realice (ACursor) e incluso un texto ya predefinido (ADefecto). El texto escrito por el usuario o el proporcionado es devuelto a la aplicación como resultado de la función. La vnta muestr loa botones mbOK y mbCancel)

   Ejemplo:

 Uses forms, lcltype, dialogs, controls;
 
 procedure VentanaEntradaTexto;
   var textoUsuario: string;
  begin
    textoUsuario := InputBox ('Introducción de texto por el usuario',
                             'Por favor, escribe algo aquí:', 
                             'Si no quieres escribir, este es el texto que se devolverá');
    ShowMessage (textoUsuario);
  end
Lazarus InputBox.png

   (nota: ojo con esta ventana, el texto de ACursor tiene un límite de longitud visible, ya que la ventana tiene un ancho y un alto limitado y fijo, y mostrará el texto en una única línea -al menos a día de hoy-)

InputQuery

 Function InputQuery(const ATitulo, ACursor : String; Enmascarar : Boolean; var TextoUsuario : String) : Boolean;
 Function InputQuery(const ATitulo, ACursor : String; var TextoUsuario : String) : Boolean;

   La función InputQuery, que como InputBox, permite al usuario introducir texto, tiene dos versiones; en la primera se utiliza el parámetro Enmascarar que indica si el texto que escribe el usuario se sustituye por asteriscos (valor true) o no (false), como para escribir una contraseña; en la segunda se omite este parámetro, lo que equivale a darle el valor false. El texto introducido por el usuario se devuelve en el parámetro TextoUsuario (por eso es variable); la función devuelve true si se presionó el botón Aceptar, o falso si se cerró la ventana de cualquier otra forma (por ejemplo, pulsando el icono 'X' de la barra de título).

   Ejemplo:

 Uses forms, lcltype, dialogs, controls;
 
 procedure TryInputQuery;
   var respuesta: boolean;
       TextoUsuario: string;
  begin
     respuesta := InputQuery ('Una cuestión de geografía', '¿Capital de Nicaragua?', true, TextoUsuario);
     if respuesta {= true} and (TextoUsuario = 'Managua') then
       ShowMessage ('Efectivamente ' + TextoUsuario + ' es la capital de Nicaragua')
     else
       begin
         InputQuery ('Prueba de nuevo', 'No has pulsado ''OK'' o tu respuesta (' + TextoUsuario
                                                      + ') no es la capital de Nicaragua', TextoUsuario);
         ShowMessage (' Tu respuesta ha sido: ' + TextoUsuario);
      end;
  end;
Lazarus InputQuery.png      Lazarus InputQueryNoMascara.png

   Nota: en la segunda imagen apreciamos que InputQuery padece el mismo defecto que InputBox respecto del texto que puede mostrar por la limitación de las dimensiones de la ventana. En Linux, con Lazarus 0.09.30-0 y FPC 2.4.2 este defecto no aparece y la ventana se expande; además se pueden crear nuevas líneas con #13)

InputQuery ES Linux LAZ 0.9.30-0 FPC-2.4.2.png
http://lazarus-ccr.sourceforge.net/kbdata/MessageDlgQuestion.png
http://lazarus-ccr.sourceforge.net/kbdata/DontBeSillly.png

PasswordBox

 Function PasswordBox(const ACaption, APrompt : String) : String;

   Su comportamiento es parecido a InputBox, consistiendo las diferencias en que no hay texto por defecto y el texto que el usuario escribe se enmascara.

   Constantes y tipos importantes que se utilizan en estos diálogos y que están predefinidas en la biblioteca LCL:

   Constantes enteras para definir tipos de botones e iconos que se muestran en MessageBox, definidos en la unidad LCLType.pp:

 //Botones
 MB_OK = $00000000;
 MB_OKCANCEL = $00000001;
 MB_ABORTRETRYIGNORE = $00000002;
 MB_YESNOCANCEL = $00000003;
 MB_YESNO = $00000004;
 MB_RETRYCANCEL = $00000005;
 //Iconos
 MB_ICONHAND = $00000010;
 MB_ICONQUESTION = $00000020;
 MB_ICONEXCLAMATION = $00000030;
 MB_ICONASTERICK = $00000040;
 MB_ICONWARNING = MB_ICONEXCLAMATION;
 MB_ICONERROR = MB_ICONHAND;
 MB_ICONINFORMATION = MB_ICONASTERICK;

   Constantes enteras que definen el valor devuelto desde MessageBox según el botón que se presione:

 IDOK = 1; 	ID_OK = IDOK;
 IDCANCEL = 2;	ID_CANCEL = IDCANCEL;
 IDABORT = 3;	ID_ABORT = IDABORT;
 IDRETRY = 4;	ID_RETRY = IDRETRY;
 IDIGNORE = 5;	ID_IGNORE = IDIGNORE;
 IDYES = 6;	ID_YES = IDYES;
 IDNO = 7;	ID_NO = IDNO;
 IDCLOSE = 8;	ID_CLOSE = IDCLOSE;
 IDHELP = 9;	ID_HELP = IDHELP;

   Definen si el botón por omisión es el primero, el segundo o el tercero:

 MB_DEFBUTTON1 = $00000000;
 MB_DEFBUTTON2 = $00000100;
 MB_DEFBUTTON3 = $00000200;
 MB_DEFBUTTON4 = $00000300;

   El valor del parámetro Marcadores de MessageBox se forma al añadir una constante botón [MB_OK..MB_RETRYCANCEL], una constante icono [MB_ICONHAND..MB_ICONINFORMATION] y una constante opcional, de botón por defecto [MB_DEFBUTTON1..MB_DEFBUTTON3]

   Los tipos que se utilizan en MessageDlg, los cuales necesitan parámetros AType de TMsgDlgType y AButtons de TMSgDlgButtons:

 { Definido en Dialogs.pp }
 type
  TMsgDlgType = (mtWarning, mtError, mtInformation,  mtConfirmation, mtCustom);
  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
  TMsgDlgButtons = set of TMsgDlgBtn;
  
 const
  mbYesNoCancel = [mbYes, mbNo, mbCancel];
  mbOKCancel = [mbOK, mbCancel];
  mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
  
  MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry,
                                                             bkIgnore, bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose);
 
  BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo, mbClose,
                                                             mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll);
 
 { Definido en Controls.pp }
 const
  mrNone = 0;
  mrOK = mrNone + 1;
  mrCancel = mrNone + 2;
  mrAbort = mrNone + 3;
  mrRetry = mrNone + 4;
  mrIgnore = mrNone + 5;
  mrYes = mrNone + 6;
  mrNo = mrNone + 7;
  mrAll = mrNone + 8;
  mrNoToAll = mrNone + 9;
  mrYesToAll = mrNone + 10;
  mrLast = mrYesToAll;

   Sobre las ventanas de diálogo: Referencia de la unidad Dialogs: Procedimientos y funciones