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.
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.