Foros Club Delphi - Modificar un LISTBOX desde otro Form

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Modificar un LISTBOX desde otro Form (https://www.clubdelphi.com/foros/showthread.php?t=79204)

Modificar un LISTBOX desde otro Form

Buenos días,

Estoy usando RAD STUDIO XE. Desde form1 el usuario pulsa un botón y aparece el form2. Poniendo cada unidad en Uses puedo intercambiar información entre los forms (Variables), tambien puedo usar procedimientos del form1 poniendo: tform1.procedimientoquesea; . Pero si intento modificar o actualizar objetos como un edit o un listbox desde el form2 al form1 no lo consigo. Lo que hago es, por ejemplo form1.edit1.text := 'lo que sea'; y no funciona. No me da error. Simplemente, no lo hace... ¿Es un bug o es que me pasa algo por alto?. Desde luego no soy programador, solo aficionado, así que disculpad las molestias.

Pon el código fuente, que lo veamos :)

Bueno, el codigo es simple:

Código:



Uses



Unit2



...



Implementation



procedure TForm4.Button4Click(Sender: TObject);

 var

  form2: TForm2;

begin

  if MessageDlg('Esto creará un nuevo expediente. ¿Desea continuar?', mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then close

  else

  begin

  creaexpediente;

  form2 := TForm2.Create(NIL);

  form2.ShowModal;



  end;

end;

El proceso creaexpediente simplente hace un INSERT en una base de datos access, pero no hace falta para resolver esto

En el Form2 he probado de todo.... para intentar modificar la listbox o los edit que existe en el Form1 y ninguna funciona. Por ejemplo:

Código:

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Labelededit2.text := 'NO FUNCIONA';

FORM1.UpdateApplication;

MyGlobals.nomclient := ListBox1.Items.Strings[ListBox1.ItemIndex];

Form1.reactiva;



Form1.CheckListBox1.Refresh;

Form1.CheckListBox1.Items.Add('memo');

Form1.Repaint;

CLOSE;

end;

Me explico:

He intentado hacerlo por las bravas: Form1.Labelededit2.text := 'NO FUNCIONA'; resultado: NADA
A traves de un procedimiento llamado UPDATEAPLICATION, que actualiza todas las ventanas, por si hubiera algun tipo de "desfase"
A base de añadir una classe en otro formulario llamada MyGlobals que contiene las variables que quiero pasar (MyGlobals.nomclient := ListBox1.Items.Strings[ListBox1.ItemIndex];)
a traves de un proceso en la FORM1 llamado "reactiva" que, básicamente, lo que hace es un form1.activate, esperando que ello lance el onactivate... pero eso tampoco funciona.
Y finalmente con repaint y refresh, a ver si la cosa cambia, pero no.

Por cierto, ya he provado a quitar el modalshow y todas las formulas de create (nil, self, application)

Cita:

He intentado hacerlo por las bravas: Form1.Labelededit2.text := 'NO FUNCIONA'; resultado: NADA

Hola Aurepilo.

Una consulta: En la unidad en que declaras a Form2, ¿ Esta incluída la unidad que contiene a Form1 ?

Saludos.

Si está incluida en el uses. En cualquier caso si no lo estuviera supongo que me daria error... lo curioso es que no me da ningun tipo de error, simplemente, no lo hace. Otra cosa curiosa es que si invoco cualquier procedimiento correspondiente al form1 (por ejemplo form1.procedimientox;), lo ejecuta y temas aritmeticos y showmessage los hace sin problema... pero a la hora de modificar un edit o un listbox, no. Por eso digo que no sé si me pasa por alto algun principio de Delphi que no acabo de entender.

Hola.

Entonces no estoy entendiendo como tenes organizado los forms, pienso que debería funcionar correctamente.

Te adjunto un pequeño ejemplo con dos forms, el primero tiene un TLabeledEdit, un TListBox y un TButton que invoca al segundo form. El segundo un TButton que modifica valores de los componentes del primero.
Tal vez sirva para darte una idea como hacerlo o para aclararme que estoy interpretando mal.

Saludos.

Mil gracias ecfisa porque tu ejemplo me ha dado algo de luz... creo que ahora veo el problema, pero sigo sin entender porque ocurre: el problema es que en realidad el formulario que tiene que ser modificado ha sido previamente creado por otro formulario. Cuando eso ocurre, el ejemplo de ecfisa deja de funcionar y no sé porque. Me explico mejor:

1.Form1 Crea Form2 (SI form2 intenta modificar form1, no hay problema)
2. Form2 crea Form3.
3. Form3 intenta modificar el labelededit y el listbox de form2 pero no funciona. Porque?

Supongo que se me escapa algo.... muchas gracias a todos por el interes y la ayuda!!!

Hola Aurepilio.

Cita:

1.Form1 Crea Form2 (SI form2 intenta modificar form1, no hay problema)
2. Form2 crea Form3.
3. Form3 intenta modificar el labelededit y el listbox de form2 pero no funciona. Porque?

Ahora sí veo como haces la creación, pero de todos modos tendría que funcionar...

Te adjunto un ejemplo que realiza lo que deseas tál como indicas en los pasos anteriores. En el, quité Form2 y Form3 de: Project->Options->(Pestaña Forms)->Auto-create forms.

Saludos

Gracias una vez más... pero igual que antes, tu ejemplo funciona pero a la que intento modificar el form2 (no el 1) no me deja. No descarto que sea un bug. En el form2 tengo un pagecontrol, pero aunque lo saque, tampoco me deja.

Bueno... finalmente he optado por una "trampa".... juraría que ya lo había probado, pero parce ser que no. Simplemente, he puesto el codigo que añade al ListBox después del showmodal, de manera que se ejecuta cuando muere la ventana creada.