CaptionClassTranslate(Language : Integer;CaptionExpr : Text[80]) : Text[80]CommaPosition := STRPOS(CaptionExpr,',');IF (CommaPosition > 0) THEN BEGIN CaptionArea := COPYSTR(CaptionExpr,1,CommaPosition - 1); CaptionRef := COPYSTR(CaptionExpr,CommaPosition + 1); CASE CaptionArea OF '1' : EXIT(DimCaptionClassTranslate(Language,CaptionRef)); '2' : EXIT(VATCaptionClassTranslate(Language,CaptionRef)); //>> Start Zoom check '50000' : RunCtrlF8Check(CaptionRef); END;END;EXIT('');
quote:On a form you can achieve this by adding a Menu Button Item with Ctrl+F8 as ShortCutKey. If you don't assign any Action or Code to that menu item nothing will happen when Ctrl+F8 is pressed.Am I clever too? [:D]Originally posted by PeterD - 2005 Nov 02 : 16:17:40