Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   error en el codigo (https://www.clubdelphi.com/foros/showthread.php?t=7341)

pepelu1975 12-02-2004 09:30:21

error en el codigo
 
Hola tengo el siguiente codigo en un boton

begin
fForm := alta_expo.Create(Self);
try
fForm.FormStyle := fsNormal;
fForm.Visible:=False;
fForm.ShowModal;
finally
fForm.Free;
end;

Al ejecutarlo me marca en la frase

fForm := alta_expo.Create(Self);
Despues de fForm y me da un error que es
Missing Operator o semicolon

Alguien me puede decir que es

Gracias

__cadetill 12-02-2004 09:33:02

Supongo que será porque no hacer referencia a la clase. Ha de ser algo así:

Código:

begin
  fForm := Talta_expo.Create(Self);
  try
    fForm.FormStyle := fsNormal;
    fForm.Visible:=False;
    fForm.ShowModal;
  finally
    fForm.Free;
  end;
end;


pepelu1975 12-02-2004 09:46:09

me sigue dando el mismo error, pero me he dado cuenta que unas lineas antes pone

undeclared identifier fFrom

__cadetill 12-02-2004 09:48:51

Pues mejor que nos pongas todo el código de esa función/procedimiento porqué sinó será difícil ayudarte

pepelu1975 12-02-2004 09:56:28

Aqui esta todo el codigo del boton

unit unit_logistica;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.crear_expoClick(Sender: TObject);
begin
begin
fForm := TForm2.Create(Self);
try
fForm.ShowModal;
finally
fForm.Free;
end;
end;

end.

Muchas gracias por todo

__cadetill 12-02-2004 10:14:09

Prueba con esto a ver....

Código:

implementation

uses
  Unit2; // o como la hayas llamado


{$R *.dfm}

procedure TForm1.crear_expoClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;


pepelu1975 12-02-2004 10:29:31

muchas gracias por todo, creo que lo voy a dejar de momento, no se como lo voy a hacer.

Muchas gracias y lo siento por todo el lio

__cadetill 12-02-2004 11:17:23

Cita:

Empezado por pepelu1975
...creo que lo voy a dejar de momento...

Ahora que casi lo teníamos!!! No me seas así!!!! :D

Cita:

Empezado por pepelu1975
.... no se como lo voy a hacer.....

Pues no hay muchas más maneras de hacerlo :rolleyes:

pepelu1975 12-02-2004 11:43:44

a ver voy a intentar explicarlo desde el principio.

Creo dos Form, el form1 y el form2.
En el form1 creo el boton(que se llama alta_expo) que debe entrar al form2.

Muchas gracias por tu paciencia.

__cadetill 12-02-2004 12:34:20

Si no has cambiado el nombre ni a la segunda Unit ni al segundo formulario, has probado lo que te indicaba en el mensaje #6??? Si es así, te daba algún error? Cual?

pepelu1975 12-02-2004 13:01:03

por finnnn ya esta, muchas gracias por vuestra paciencia de verdad os debo una cervecita.

Pero como dijo McArthur Volvere


La franja horaria es GMT +2. Ahora son las 15:21:17.

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