problema con las multiples sesiones de la unidad de Roman :(

[ivantj24]

jars gracias por la ayuda, y disculpa pero es que no soy la gran cosa en delphi, lo que queria saber, es como hiria declarado o el orden el que debe llevar por ejemplo, el orden de un archivo vendria siendo:

unit UPrincipal;

interface

uses
....

type
.....


private
//Aqui todos los metodos privados
public
//Aqui todos los metodos publicos

//y aqui debajo de todo eso yo pongo tu codigo igualito como me dijiste

//Este public, supongo va en el apartado de public, debajo de private

public
constructor Create(AOwner: TComponent); override;
//==================================================================================================== ==================
constructor TfrmPrincipal.Create(AOwner: TComponent);
//==================================================================================================== ==================
type
PHWND = ^HWND;

var
createerror: DWORD;
FHMapObject: Integer;
begin
FHMapObject := CreateFileMapping(
$FFFFFFFF, // use paging file
nil, // no security attributes
PAGE_READWRITE, // read/write access
0, // size: high 32-bits
1, // size: low 32-bits
PChar('Nombre_de_tu_programa')); // name of map object
createerror := GetLastError;
if FHMapObject = 0 then
begin
MessageDlg(Format('CreateFileMapping=$%x', [createerror]),
mtError, [mbOK], 0);
Exit;
end;

if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(FHMapObject);
MessageDlg('Ya hay una instancia ejecutandose', mtError, [mbOK], 0);
Application.Terminate;
Halt;
end;
Inherited;
end;

y mas abajo sigue

var
frmPrincipal: TfrmPrincipal;

implementation

uses //todas las unidades

{$R *.dfm}

procedure TfrmPrincipal.Cerrar1Click(Sender: TObject);
begin
Close;
end;

//y todo los procedimientos ya desarrollados etc

seguro que yo lo estoy haciendo mal, solo espero me puedas orientar por que aun me falta mucho por aprender, o no se si hay que desarrollar algo mas al codigo, saludos y sorry por la pregunta algo tonta :S, gracias

me salen 4 errores,
1.- [DCC Error] UPrincipal.pas(64): E2004 Identifier redeclared: 'TfrmPrincipal.Create'
2.- [DCC Error] UPrincipal.pas(70): E2050 Statements not allowed in interface part (me seniala el begin, despues del constructor)
3.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (me seniala el Inherited)
4.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (y este es normal por que hay un error y no se puede compilar, espero me puedas echar la mano )

[ivantj24]

ok lo checare muchas gracias

[ivantj24]

ok mucgas gracias yo lo checo y sorry si tardo es que estoy en el trabajo

[ivantj24]

hola que tal de nuevo, gracias por la ayuda begginer y jars, de hecho ya me salio con el ejemplo de jars, aunque tambien intentare con el ejemplo de begginer en un momento, solo una duda con el codigo de jars, tengo un problema al declarar el constructor en public, como manejo un splash screen, yo declaro una variable publica de tipo integer, el detalle es que cuando declaro el constructor me genera una advertencia en esa parte y solo cuando pongo en comentarios la variable que usa el splashscreen solo asi puedo correo el programa y todo se realiza perfectamente bien, como deberia de funcionar, lo que queria saber es a que se debe esto? acaso no se puede declarar variables, mientras tenga un constructor ? por que si he probado declarando metodos con variables publicas, pero esta es la primera ocacion que me ocurre esto con un constructor, ya que anteriomente nunca habia usado en delphi de esta forma, espero me puedan explicar o por que esto, aqui dejo el mensaje que me pone como advertencia:

[DCC Error] UPrincipal.pas(58): E2169 Field definition not allowed after methods or properties

public
constructor Create(AOwner: TComponent); override;
//SplashScreenHandle:integer; //solo si lo pongo en comentarios o elimino ya me deja compilar y probar el programa.
end;


no se puede usar variables publicas junto con constructores? soy nuevo en delphi sorry si es algo tonta la pregunta o por que me sucede eso.

[beginner01]

Empezado por ivantj24

public
constructor Create(AOwner: TComponent); override;
//SplashScreenHandle:integer; //solo si lo pongo en comentarios o elimino ya me deja compilar y probar el programa.
end;


no se puede usar variables publicas junto con constructores? soy nuevo en delphi sorry si es algo tonta la pregunta o por que me sucede eso.

"las variables deben declararse primero y luego las propiedades o metodos".
prueba asi.

Código Delphi [-]
public
  SplashScreenHandle:integer;
  constructor Create(AOwner: TComponent); override;
  end;

[ivantj24]

gracias por la ayuda, me vi bien mal, no se por que hace rato intente hacer eso, poner la variable arriba, es algo logico que si no funcionaba abajo la pondria arriba y de hecho lo hice pero por algun motivo no funciono por eso expuse mi duda xD, y ahora lo intento y si quedo todo bien :S:S bueno ya me acostumbre a que pase eso en esta carrera jajajaja muchas gracias beginner y probare como dices tu unidad instalando los jedis, saludos

[beginner01]

Empezado por ivantj24

gracias por la ayuda, me vi bien mal, no se por que hace rato intente hacer eso, poner la variable arriba, es algo logico que si no funcionaba abajo la pondria arriba y de hecho lo hice pero por algun motivo no funciono por eso expuse mi duda xD, y ahora lo intento y si quedo todo bien :S:S bueno ya me acostumbre a que pase eso en esta carrera jajajaja muchas gracias beginner y probare como dices tu unidad instalando los jedis, saludos

la ventaja de instalar las jedi es que tienen cientos de componentes muy utiles
asi que vale la pena instalarlos y ademas son libres.

si los vas instalar te recomiendo que los descomprimas en una ruta segura
luego vas a la carpeta que dice jcl y ejecutas el install.bat.
cuando este se instale vas a la carpeta jvcl y haces lo mismo con install.bat

Te recomiendo que continues en un solo hilo para evitar confución.

[ivantj24]

ok gracias por la recomendacion y hare lo que me dices, supongo que una ves ejecutados los .bat apareceran en delphi los componentes sin necesidad que desde el programa los agregue verdaD? solo para aclarar eso