SETs unterschiedlicher Grösse kombinieren

[uligerhardt]

Zitat von Hawkeye219:

Na, dann geben wir dem Wunschkind doch einen Namen:

Delphi-Quellcode:

  TSomeShiftKey = ssShift..ssCtrl;
  TSomeShiftKeys = set of TSomeShiftKey;

Gute Idee.

Zitat von Hawkeye219:

Delphi-Quellcode:

procedure SetZoomShift (const V: TSomeShiftKeys);
var
  fZoomShift: TShiftState;
begin
  fZoomShift := V + [ssLeft];
end;

Noch bessere Idee.