delphi做的一个demo组件之前自动转换焦点!自动获取光标