Ver Mensaje Individual
  #7  
Antiguo 12-05-2025
genyus00 genyus00 is offline
Miembro
 
Registrado: jun 2010
Posts: 31
Reputación: 0
genyus00 Va por buen camino
Hola, de modo que compilara sin colocar problemas con las versiones delphi a la fecha aplique esta modificacion, espero les sirva.

Código Delphi [-]
procedure ShowAboutBox(const ComponentName: String);
begin
  with Tfrm_AboutBox.Create(Application) do
  try
    Lbl_ComponentName.Caption := ComponentName;

    Lbl_Delphi.Caption := 'Compiled in ' +

{$IFDEF VER80} 'Delphi 1.0' {$ENDIF}
{$IFDEF VER90} 'Delphi 2.0' {$ENDIF}
{$IFDEF VER100} 'Delphi 3.0' {$ENDIF}
{$IFDEF VER120} 'Delphi 4.0' {$ENDIF}
{$IFDEF VER130} 'Delphi 5.0' {$ENDIF}
{$IFDEF VER140} 'Delphi 6.0' {$ENDIF}

{$IF CompilerVersion = 15.0} 'Delphi 7.0' {$IFEND}
{$IF CompilerVersion = 16.0} 'Delphi 8.0' {$IFEND}
{$IF CompilerVersion = 17.0} 'Delphi 2005' {$IFEND}
{$IF CompilerVersion = 18.0} 'Delphi 2006' {$IFEND}
{$IF CompilerVersion = 18.5} 'Delphi 2007' {$IFEND}
{$IF CompilerVersion = 20.0} 'Delphi 2009' {$IFEND}
{$IF CompilerVersion = 21.0} 'Delphi 2010' {$IFEND}
{$IF CompilerVersion = 22.0} 'Delphi XE' {$IFEND}
{$IF CompilerVersion = 23.0} 'Delphi XE2' {$IFEND}
{$IF CompilerVersion = 24.0} 'Delphi XE3' {$IFEND}
{$IF CompilerVersion = 25.0} 'Delphi XE4' {$IFEND}
{$IF CompilerVersion = 26.0} 'Delphi XE5' {$IFEND}
{$IF CompilerVersion = 27.0} 'Delphi XE6' {$IFEND}
{$IF CompilerVersion = 28.0} 'Delphi XE7' {$IFEND}
{$IF CompilerVersion = 29.0} 'Delphi XE8' {$IFEND}
{$IF CompilerVersion = 30.0} 'Delphi 10 Seattle' {$IFEND}
{$IF CompilerVersion = 31.0} 'Delphi 10.1 Berlin' {$IFEND}
{$IF CompilerVersion = 32.0} 'Delphi 10.2 Tokyo' {$IFEND}
{$IF CompilerVersion = 33.0} 'Delphi 10.3 Rio' {$IFEND}
{$IF CompilerVersion = 34.0} 'Delphi 10.4 Sydney' {$IFEND}
{$IF CompilerVersion = 35.0} 'Delphi 11 Alexandria' {$IFEND}
{$IF CompilerVersion = 36.0} 'Delphi 12 Athens' {$IFEND}

    ;

    ShowModal;
  finally
    Free;
  end;
end;
Responder Con Cita