Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Editar Items (Listbox) mediante un edit (https://www.clubdelphi.com/foros/showthread.php?t=77043)

javier.m866 15-12-2011 21:08:20

Editar Items (Listbox) mediante un edit
 
Hola, tengo un listbox con una lista de nombres ej:

Javier Martínez
Carlos Beltran
Manuel Fajardo
Rocío Durcal
Amado Fiel
German Mesa

Y quisiera que al seleccionar uno de ellos y presionar un boton "Editar" se sustituya ese nombre por otro escrito con anterioridad en un edit "Edit1" y que la lista quede idéntica, pero en su misma posición poner el nuevo nombre ej:

Javier Martínez
Ramón Loure
Manuel Fajardo
Rocío Durcal
Amado Fiel
German Mesa

Espero me puedan ayudar.

Casimiro Notevi 15-12-2011 21:17:36

Básicamente es "otra vuelta de tuerca" de las últimas preguntas que has hecho estos días.
Recuerda, es sencillo, itemindex es la posición, luego sólo debes sustituir el valor que hay en la posición que quieras.

ecfisa 15-12-2011 21:19:24

Hola Javier.

Código Delphi [-]
procedure TForm1.btModificarClick(Sender: TObject);
begin
  with ListBox1 do
    Items[ItemIndex]:= Edit1.Text;
end;

Saludos.

Edito: Ups!, perdon Casimiro pusimos casi al mismo tiempo... :o

cloayza 15-12-2011 21:21:06

Es muy sencillo lo que deseas hacer...

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
begin
       //Al presionar el botton Editar realiza la asignación del contenido del Edit1 al item seleccionado
    ListBox1.Items[ListBox1.ItemIndex]:=Edit1.Text;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
     //Al seleccionar un item del Lisbox, se asigna este al Edit....
     Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex]
end;

Saludos

javier.m866 15-12-2011 21:30:56

Muchas gracias por su ayuda
 
OK, muchas gracias por sus respuestas y disculpen el tiempo robado, al parecer era una pregunta sencilla, intentaré esforzarme un poco más.

olbeup 16-12-2011 08:45:58

Hola Javier.m866,

Si sólo haces preguntar :rolleyes: y no investigas :mad: por ti mismo, nunca sabrás lo respondido ya que tú no te has esforzado en aprenderlo, la mayor satisfacción es sacar el problema por si sólo. ;)

No te estoy diciendo que no preguntes :confused:, para eso es éste foro, para responder aquellos que le han dado vueltas a algo, pero ese algo, se le resiste y en la desesperación, angustia y mucho dolor de cabeza, Pregunta.

Puedes preguntar una y un millón de veces pero primero busca, compara y si encuentras algo mejor, pues cógelo, jejeje.

Un saludo


La franja horaria es GMT +2. Ahora son las 06:31:19.

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