Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#6

AW: TPasswordCheck (Komponente mit Anbindung an ein TEdit)

  Alt 22. Sep 2010, 11:42
Für Delphi5/6 Nutzer hab' ich dann sicher auch eine bequemere Lösung gefunden.
Delphi-Quellcode:
{$IFDEF VER130} 
  {$UNDEF USE_TYPES}
{$ELSE}
  {$IFDEF VER140} 
    {$UNDEF USE_TYPES}
  {$ELSE}
    {$DEFINE USE_TYPES}
  {$ENDIF}
{$ENDIF}

uses
  Messages, Classes, Controls, StdCtrls, Graphics {$IFDEF USE_TYPES}, Types{$ENDIF};

...

    {$IFDEF USE_TYPES}
      property HelpContext;
      property HelpType;
      property HelpKeyword;

      property OnMouseActivate;
      property OnMouseEnter;
      property OnMouseLeave;
    {$ENDIF}
Ich hab mich so an die ConditionalExpressions gewöhnt ... schade daß D5 diese vermutlich noch nicht kennt.
Delphi-Quellcode:
uses
  Messages, Classes, Controls, StdCtrls, Graphics
    {$IF CompilerVersion > 14.0}, Types{$IFEND};

...
Oder du nutzt eine der vielen Compiler-Versions-Check-INC-Dateien (z.B. die aus den Jedi und von mir gibt's auch irgendwo in der DP eine VersionsCheck.inc)
$2B or not $2B

Geändert von himitsu (22. Sep 2010 um 11:44 Uhr)
  Mit Zitat antworten Zitat