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}