Hallo alle zusammen, ich habe hier einen Fehler mit dem ich nix anfangen kann, dieser kommt auch nur in alten Delphi Version (beim Versuch die Unit zu compiieren), in neueren, also >=XE lässt es sich ohne Probleme kompilieren.

Ich habe den Fehler mit einer kleinen Test Unit erzwungen, kann mir jemand helfen, danke euch.

zusammenfalten · markieren

Delphi-Quellcode:

unit testShadow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type
  TDropShadowType =(dstNone, dstStandard);


Test = class(TObject)
  private
  fDropShadow: TDropShadowType;


  procedure SetDropShadow (const value: TDropShadowType);

  public
  constructor create();

  published
  property DropShadow: TDropShadowType read fDropShadow write SetDropShadow;


end;

implementation

{$R *.DFM}


procedure Test.SetDropShadow(const value: TDropShadowType);
begin
  fDropShadow := Value;

end;

constructor Test.create();
begin

  DropShadow := TDropShadowType.dstStandard;

end;


end.

Hier noch der Fehler als Screenshot im Anhang.

Da das Teil eines Packages/ Komponente ist, sollte es auch in alten Versionen kompilierbar sein, vielen Dank.

.. und so?

markieren

Delphi-Quellcode:

constructor Test.create();
begin

  DropShadow := {TDropShadowType.}dstStandard;

end;

Zitat von Klaus01:

.. und so?

markieren

Delphi-Quellcode:

constructor Test.create();
begin

  DropShadow := {TDropShadowType.}dstStandard;

end;

Thats it danke, super Toll ehrlich