Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #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
 



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 14:24:22.


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