Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   hace una input box en delphi? (https://www.clubdelphi.com/foros/showthread.php?t=64274)

Gattaca 25-03-2009 05:46:38

hace una input box en delphi?
 
Hola..

Sera que se puede hacer una inputbox como las de visual basic pero en delphi?...

Por ejemplo.

Código:

cajadeinput = InputBox("Inserte el texto:", "InputBox")
if cajadeinput = "A" then
...
else
...
end if

Algo asi era para visual basic, pero ya deje de usarlo...

Alguna ayuda es urgente por favor... :)

dec 25-03-2009 06:11:52

Hola,

La función sustituta sería "InputQuery":

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  userResponse: string;
begin

  repeat
    InputQuery('Write your name', 'Write your name', userResponse);
  until (userResponse <> '');

  ShowMessage(userResponse);
end;

rgstuamigo 25-03-2009 20:34:01

Cita:

Sera que se puede hacer una inputbox como las de visual basic pero en delphi?...
Se puede,es casi lo mismo:
Siguiendo tu ejemplo:
Código Delphi [-]
 cajadeinput:=InputBox('Inserte el texto:', 'Por favor..','A');//aqui la letra 'A' se saldra como dato por defecto en el InputBox,si no quieres ninguno simplemente dejalo vacio('') 
if cajadeinput = 'A' then
  begin
  ...
  end
else
  begin
  ...
  end;
Si presionas F1 de seguro que ubieras encontrado ayuda....;)

Gattaca 26-03-2009 02:47:23

Muchas gracias a ambos, pero al de arriva, sele olvido decirme que le declare la variable:

Código Delphi [-]
Procedure ...
var
cajadeinput : string;
begin
cajadeinput:=inputquery('Inserte ID:', 'Por favor...', '000000-000000');
if cajadeinput='00000-00000' then
begin
...
end else begin
...
end;

end.

Saludos!


La franja horaria es GMT +2. Ahora son las 01:07:11.

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