Zitat von
freejay:
Natürlich könnte ich noch Konstanten für die Tags anlegen, aber das ist alles so umständlich...
Also wenn dir das schon zu umständlich ist...
Delphi-Quellcode:
const
ACTION_CUT = $00;
ACTION_COPY = $01;
ACTION_PASTE = $02;
ACTION_DELETE = $03;
ACTION_SELECTALL = $04;
ACTION_FIND = $05;
ACTION_REPLACE = $06;
ACTION_TOUPPERCASE = $07;
ACTION_TOLOWERCASE = $08;
...
case Item.Tag of
ACTION_CUT: DoSomeThing;
ACTION_COPY: DoSomeThingElse;
else DoSomethingOther;
end;