> Another approach might be to have a widgetset function like: > > function KeyCombo_IsCut(const Key: Word; const Shift: TShiftState): Boolean > > or something like: > > type > TCommonShortCut = (tcsUnknown,tcsCut, tcsPaste, tcsCopy, tcsBof, tcsEof); > > function KeyComboToCommonShortcut(const Key: Word; const Shift: > TShiftState): TCommonShortCut; > begin > //default to tcsUnKnown; > Result := tcsUnKnown; > ... > end; > > Bart
This is a very good idea. Check/Test/IsStandardShortCut? ;-) -Flávio -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus