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 |
Supongo que será porque no hacer referencia a la clase. Ha de ser algo así:
Código:
begin |
me sigue dando el mismo error, pero me he dado cuenta que unas lineas antes pone
undeclared identifier fFrom |
Pues mejor que nos pongas todo el código de esa función/procedimiento porqué sinó será difícil ayudarte
|
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 |
Prueba con esto a ver....
Código:
implementation |
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 |
Cita:
Cita:
|
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. |
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?
|
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