Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #12  
Antiguo 02-04-2009
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 21
Chris Va por buen camino
Cuando vale la pena, es mejor botar el código antes de intentar depurarlo. por eso, te proporciono un código mejor para hacer lo que intentas:
Código Delphi [-]
begin
  Application.Initialize;
  Application.Title := 'Diccionario crítico etimológico castellano e hispánico';
  Application.HelpFile := 'AYUDA.HLP';

  // La portada no hará ningun tipo de lógica. Se evaluará el contenido
  // del CD en esta sección de inicio.
  Application.CreateForm(Tportada, portada);

  unidad:=GetFirstCdRomDrive; // TODO: definir la variable unidad como string, supongo.

  while not isDiskIn(unidad[1]) then
  begin
    // TODO: Definir la variable "cancel_load" como Boolean
    cancel_load := (MessageBox(application.Handle,
                               'Introduzca el CD correcto',
                               'pon un titulo acá', MB_RETRYCANCEL) = IDCANCEL);

    if cancel_load then
      break;
  end;


  if not cancel_load then
  begin
    descomprimir();
    Application.CreateForm(Tcentral, central);
    Application.CreateForm(Tdades, dades);
    Application.CreateForm(Tmultiple, multiple);
    Application.CreateForm(Tllengues, llengues);
    Application.CreateForm(Tdocumentacio, documentacio);
    Application.CreateForm(Tbuscabierta, buscabierta);
    Application.CreateForm(Tabreviaturas, abreviaturas);
    Application.CreateForm(Tnotacionfonetica, notacionfonetica);
    Application.CreateForm(Tintroduccion, introduccion);
    Application.CreateForm(Tfuentescas, fuentescas);
    Application.CreateForm(Tdedicatoria, dedicatoria);
    Application.CreateForm(Tindibiblio, indibiblio);
    Application.CreateForm(Tindicacionesbibliograficas, indicacionesbibliograficas);
    Application.CreateForm(Tabreviaturastxt, abreviaturastxt);
    Application.CreateForm(Tpopuplema, popuplema);
    Application.CreateForm(Tcredits, credits);
    Application.CreateForm(Tmapagrafies, mapagrafies);
    Application.CreateForm(Tcarga, carga);
    Application.Run;
  end;
end;

De esta forma, el código del evento FormCreate de la portada ya no será necesario y puedes eliminarlo.

Saludos.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error AccessViolation CarlosHernandez Varios 3 22-09-2008 10:18:57
Error inexplicable chipsoni Impresión 3 11-01-2007 17:36:49
RaveReport AccessViolation raugadel Impresión 0 03-11-2005 15:32:56
Problema Inexplicable Con Una Consulta carlos gonzalez Conexión con bases de datos 4 12-05-2005 11:27:29
Problema... ¿inexplicable? jadelphi Varios 3 20-04-2005 17:57:33


La franja horaria es GMT +2. Ahora son las 22:39:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi