Ver Mensaje Individual
  #3  
Antiguo 30-08-2007
Avatar de jakuna
jakuna jakuna is offline
Registrado
 
Registrado: abr 2006
Posts: 7
Reputación: 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