Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-08-2007
Avatar de arespremium
arespremium arespremium is offline
Miembro
 
Registrado: jul 2007
Posts: 48
Poder: 0
arespremium Va por buen camino
mostrar resultados en form2

Hola como puedo hacer en delphi 7
ingresar datos en form1 los muestre en el form 2
tengo dos form, el form 1 y form 2

ejemplo: ingreso un palabra cualquiera en el edit al presionar aceptar desaparezca el form 1 y muestre el resultado en el form 2

Form1
ver_imagen

Form2
ver_imagen

Form 2
En el Boton "volver al formulario 1", que hago lo mismo que el boton del form1, que desaparesca form2 y cargue form1

Codigo para ComboBox
Código Delphi [-]
if ComboBox1.ItemIndex <> -0 then
combobox1.items.add('opcion 1');
combobox1.items.add('opcion 2');
combobox1.items.add('opcion 3');
form2/Label10.Caption := ComboBox1.Items[ComboBox1.ItemIndex];
end;
Responder Con Cita
  #2  
Antiguo 30-08-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 21
gluglu Va por buen camino
Lo que tienes que hacer es incluir en la cláusula 'Uses' del Form2 al Form1. Con ello ya podrás acceder a los elementos del Form1. Por ejemplo, en Form2 puedes leer el contenido del Edit1 del Form1 con LoqueSea := Form1.Edit1.Text;

Te aconsejaría que en vez de liberar de memoria cada uno de los Forms cuando accedas al otro, simplemente los coultes, por ejemplo con Form1.Visible := False;
__________________
Piensa siempre en positivo !
Responder Con Cita
  #3  
Antiguo 30-08-2007
Avatar de jakuna
jakuna jakuna is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Poder: 0
jakuna Va por buen camino
Talking un ejemplo

Hola arespremium, la respuesta a tu duda es lo que dice gluglu ya que para usar en el form1 todo lo que incluyas en el form2 debes declararlo en el uses un pequeño ejemplo para q lo puedes ver....

Código Delphi [-]
unit UForm1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UForm2;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Ed_Dato: TEdit;
    Btn_Aceptar: TButton;
    procedure Btn_AceptarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Btn_AceptarClick(Sender: TObject);
begin
 Form1.Visible:=False;
 Form2.Visible:=True;
 form2.ListBox1.Items.Add(Ed_Dato.Text);
end;
end.

Si observas en el Uses esta en Uform2 y alli tb se se hace lo q te recomienda gulglu oculta el form que no vas a usar

Código Delphi [-]
unit UForm2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    ListBox1: TListBox;
    Btn_Regresar: TButton;
    procedure Btn_RegresarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
uses UForm1;
{$R *.dfm}
procedure TForm2.Btn_RegresarClick(Sender: TObject);
begin
  Form2.Visible:=False;
  Form1.Visible:=True;
end;
end.

Aqui ya no se declara en el Uses la Uform1 porque sino te va a salir Circular Reference xq aperece en los dos cuando solo necesita estar en uno....es un ejemplo simple que hice altoke pero espero q te sirva para q entiendas, ya si deseas limpiar el listbox solo debes agregar Listbox1.Clear o lo que quieras usar por ejemplo un edit; y asi cada vez se borrara y mostrara un solo valor.

Suerte
Responder Con Cita
  #4  
Antiguo 31-08-2007
Avatar de arespremium
arespremium arespremium is offline
Miembro
 
Registrado: jul 2007
Posts: 48
Poder: 0
arespremium Va por buen camino
Hola le agregue esto Form1, en uses:
UForm2:
pero me marca de color rojo, no me lo reconoce como debe de ser

error fatal
[Fatal error]Unit1.pas(7): file not found:'UForm2.dcu'

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UForm2;

Última edición por arespremium fecha: 31-08-2007 a las 00:15:48.
Responder Con Cita
  #5  
Antiguo 31-08-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Poder: 17
paldave Va por buen camino
Eso te debería funcionar si la unidad del Form2 se llama UForm2, pero si es la que crea por defecto Delphi entonces la unidad de Form2 se llama Unit2, y es eso lo que tienes que agregar en uses.
Código Delphi [-]
uses ..., unit2;
Responder Con Cita
  #6  
Antiguo 31-08-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Creo que a esto te refirias en tus consultas.
Te hice un ejemplo de esto, pasar datos de un form a otro, es muy sencillo, revisalo, lo vas a entender muy bien.
Recuerda que cuando se habla de uses, se tiene que definir si son de implementacion o del programa, hay diferencias, creo que es donde tienes los errores.
Pero bueno, me gusta hacer estos pequeños ejemplos, este lo hice casi igual al que necesitas, asi lo entenderas mejor.
Ya me diras.
Saludos
__________________
Siempre Novato

Última edición por Caral fecha: 24-01-2008 a las 22:35:13.
Responder Con Cita
  #7  
Antiguo 31-08-2007
Avatar de arespremium
arespremium arespremium is offline
Miembro
 
Registrado: jul 2007
Posts: 48
Poder: 0
arespremium Va por buen camino
muchas gracias Caral, es muy buen ejemplo

es super wenu, genial

Saludos
Responder Con Cita
  #8  
Antiguo 01-09-2007
Caray Caray is offline
Miembro
 
Registrado: abr 2006
Posts: 61
Poder: 19
Caray Va por buen camino
Como hacer para que un formulario pueda usar otro

Miren los que hago cuando quiero usar algo de otro formulario es ponerme en el que quiero que use los datos del otro, me voy a file->use unit y elijes la que quieras que use.
Bueno eso me funciona.
__________________
La inteligencia me persigue, pero yo soy más rápido que ella.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
resultados y clasificacion MiGuEJeReZ Varios 6 27-06-2006 12:30:19
mostrar o no mostrar un control en un DBCTRLGRID segun la fila gesteban OOP 0 10-11-2005 17:21:11
Como mostrar los resultados de una busqueda en otra forma zyndy Varios 1 17-01-2005 22:10:13
Mantener Form1 siempre detrás de Form2 Gorka Varios 1 13-10-2004 13:13:48
Urgente...error al querer mostrar form2 redlyon13 Varios 1 01-12-2003 15:32:12


La franja horaria es GMT +2. Ahora son las 05:03:10.


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
Copyright 1996-2007 Club Delphi