PDA

Ver la Versión Completa : Cargar Items de un textbox a un listbox


Esquivel
15-08-2017, 05:02:14
Hola a todo el que este leyendo esto, espero que me puedan ayudar.

Recién y empiezo a usar delphi, y estoy en programación básica. Necesito que me ayuden con un código que permita que:
Al añadir información al una 《caja de texto》 y presionar un 《botón》este me mande la información escrita a un 《ListBox》. Se que es sencillo y ya lo he intentado hacer pero siempre me nuestra error. Si me pueden ayudar se los agradecería.^\||/ :D

movorack
15-08-2017, 05:44:20
Hola. ¿Ya leíste la guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?

¿Que errores te arroja?
¿Que tanto haz codificado?

Aaaa y no repitas posts, además de colocar mensajes descriptivos a tus posts.

Esquivel
17-08-2017, 03:48:42
Un cordial saludo a todos.

Quisiera añadir información a un textbox y que al presionar un boton se valla a un listbox.

¿Es posible hacer esto que pido? Por favor les agradecería si me ayudaran.
:rolleyes: :D

AgustinOrtu
17-08-2017, 04:37:09
El control TListBox (http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TListBox) contiene una propiedad Items (http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TListBox.Items) que es de tipo TStrings (http://docwiki.embarcadero.com/Libraries/en/System.Classes.TStrings), que no es ni mas ni menos que una lista de strings. En el enlace anterior podes encontrar algunos ejemplos de como agregar elementos. Basicamente invocas los metodos adecuados del objeto Items de tu ListBox, y este se actualizara automaticamente. Acá hay una lista de metodo (http://docwiki.embarcadero.com/Libraries/en/System.Classes.TStrings_Methods)s que entienden todos los objetos TStrings. Por ejemplo, podrias usar el Add (http://docwiki.embarcadero.com/Libraries/en/System.Classes.TStrings.Add) para lograr tu cometido, un pequeño ejemplo:


ListBox1.Items.Add('hola mundo');


Acá hay más propiedades de interes (]http://docwiki.embarcadero.com/RADStudio/en/List_Boxes_and_Check-list_Boxes)del objeto TListBox

Ahora que sabes como agregar elementos al ListBox, lo que tenes que aprender ahora es como obtener la informacion de lo que llamas "textbox", que en Delphi se conoce como el control TEdit (http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TEdit). Este objeto tiene una propiedad Text (http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TEdit.Text) la cual es el string que el usuario introduce en la caja de texto.

Y por ultimo lo que debes hacer es agregar un manejador al evento OnClick (http://docwiki.embarcadero.com/Libraries/en/Vcl.Controls.TControl.OnClick) de un TButton (http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TButton). Esto lo haces desde el mismo IDE. Simplemente colocas un TButton, le haces doble click para crear el manejador para el evento OnClick y escribes el codigo que quieres que se ejecute cuando el usuario hace click en el boton.

Te dejo esta tarea para que la resuelvas solo combinando los tres conceptos, y si no te sale, simplemente preguntas

ecfisa
17-08-2017, 04:37:51
Hola Esquivel.

Cuando mencionas "caja de texto" o "textbox", ¿ de que componente estas hablando ?

Si se trata de un TEdit, es muy simple:

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;


Saludos :)