De: Juan Fco. Talamantes Silva <juanf_230681@...>
Asunto: Re: [Delphi] Re: principiante en delphi
Para: DesarrolloDelphi@...
Fecha: miércoles, 18 febrero, 2009 12:23

hola

ise lo que mandaste en el correo`pero me sale un error el codigo es el siguiente

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click( Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click (Sender: TObject);
var forma2 : TForm2;
begin
form2 := TForm2.Create( self);
end;
begin
 if not Assigned(form2) then
form2 := TForm2.Create( self);------ --------- -----aqui sale el error
form2.ShowModal;
form2.Free;
end;

end.

me podrias desir como lo corrijo

gracias

---

De: aleharo2003 <aleharo2003@ yahoo.com. ar>
Para: DesarrolloDelphi@ gruposyahoo. com.ar
Enviado: martes, 17 de febrero, 2009 19:48:09
Asunto: [Delphi] Re: principiante en delphi

--- En DesarrolloDelphi@ gruposyahoo. com.ar, "juanf_230681"
<juanf_230681@ ...> escribió:
>
> hola
> alguien me podria desir como acerle
> en la primera forma tengo el boton abrir forma 2
> cual es el codigo para que el boton de la forma 1 me abra la forma 2
> gracias
>
yo de nuevo.
me olvide q despues de crearlo tenes q mostrarlo
esto lo podes hacer de dos formas
1) form2.Show;
quedaria asi:

Procedure TForm1.Button1Click (Sender: TObject);
begin
//nos aseguramos de que no esta asignada la variable form2
if not Assigned(form2) then
form2 := TForm2.Create( self);
form2.Show;
end;

2) form2.ShowModal; //en forma modal, es el unico activo hasta q se
cierra.
procedure TForm1.Button1Click (Sender: TObject);

begin
if not Assigned(form2) then
form2 := TForm2.Create( self);
form2.ShowModal;
form2.Free;
end;

____________ _________ _________ _________ _________ __
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo. yahoo.com. mx/