memoex.pas

这个是个简单的关于出票申请的处理

interface 
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ClipBrd, RTLConsts; 
const 
WM_EDITCOMMAND = WM_USER + $101; 
ME_EX_STYLE_DEFAULT = 0; // Extended text style // Case conversion operations codes 
ME_CASE_CONVERT_UPPER = 0; // Convert to upper case 
ME_CASE_CONVERT_LOWER = 1; // Convert to lower case 
ME_CASE_CONVERT_INVERT = 2; // Invert case //Windows XP themes support for TMemoEx. 
WM_THEMECHANGED = $031A; 
EP_EDITTEXT = 1; 
EP_CARET = 2; 
ETS_NORMAL = 1; 
ETS_HOT = 2;