Constant expression expected

[EWeiss]

case DlgItemID of funktioniert nicht!
DlgItemID wird aus der Anwendung an die DLL geschickt und dann wird aus DlgItemID eine Variable.
So wie @hoika schon sagte.

so geht's.

property DlgItemID: Integer read GetDlgItemID write SetDlgItemID;

Delphi-Quellcode:

              if (PDis^.CtlID = DWORD(SkinColorPicker.DlgItemID)) then
                  begin
                    case PDis^.itemAction of

                      ODA_DRAWENTIRE:
                        begin
                          if (PDis.itemAction and ODA_DRAWENTIRE) = ODA_DRAWENTIRE then
                          begin

so war es vorher

Delphi-Quellcode:

              case PDis^.CtlID of
                SkinColorPicker.DlgItemID: // error weil Variable Constant expression expected
                  begin
                    case PDis^.itemAction of

                      ODA_DRAWENTIRE:
                        begin
                          if (PDis.itemAction and ODA_DRAWENTIRE) = ODA_DRAWENTIRE then
                          begin

gruss