Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;
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.
De: aleharo2003 <aleharo2003@...>
Para: DesarrolloDelphi@...
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/