InputBox de 3 campos

[trex2000]

Saludos a todos.

En un pequeño sistema que tenemos en la oficina se necesita modificar un InputBox de un campo a que pida tres campos pero no se si esa tarea sea posible y en caso de que sea posible me podrian ayudar en como hacerlo?

De antemano muchas gracias.

[jhonny]

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/Libraries/Tokyo/en/FMX.DialogService.TDialogService.InputQuery

Uno de los ejemplos de uso:

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);