Ver Mensaje Individual
  #2  
Antiguo 09-10-2018
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 29
jhonny Va camino a la famajhonny Va camino a la fama
Realmente no recuerdo desde qué versión de Delphi incluyeron esta característica, pero si tienes una de las últimas seguro que te serviría cambiar el InputBox por InputQuery, esto te permite poner varias opciones y botones en dicha ventana...


http://docwiki.embarcadero.com/Libra...ice.InputQuery

Uno de los ejemplos de uso:

Código Delphi [-]
TDialogService.InputQuery('Cantidades', ['Item', 'Cajas', 'Moldes'], ['0', '0', '0'],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
      if AResult = mrOk then
      begin
          ShowMessage('Presionó Ok y sus valores son ' + AValues[0] + ' , ' + AValues[1] + ' y ' + AValues[2]);
      end;
    end);
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita