SETs unterschiedlicher Grösse kombinieren

[ralfiii]

Zitat von Hawkeye219:

Na, dann geben wir dem Wunschkind doch einen Namen:
<Snip>

Super! Sieht gut aus, danke!!!

Zitat:

Wenn du TSomeShiftKeys schon bei der Definition der Eigenschaft verwendest anstatt neue Bezeichner für die Werte des (eingeschränkten) Aufzählungstypen einzuführen, könnte die Routine SetZoomShift so aussehen:<Snip>

Dafür ist's leider zu spät, dann müsst ich alle dfm's neu reinladen und die Werte neu setzen.


Eine fragwürdige Alternative hab ich am WE noch gebastelt:

Delphi-Quellcode:

{$IF Compilerversion<=18.5}  // Bei D2007 hat's noch funktioniert
type TSx_ShiftKeys=set of (skShift, skAlt, skCtrl);
{$ELSE}
type TSx_ShiftKeys=set of (skShift, skAlt, skCtrl,
                           _sk_IgnoreMe = (sizeof(TShiftState)*8)-1 );  // to make set same size as TShiftKey
{$IFEND}