TRichEdit也不行,Delphi封装TMemo和TRichEdit实在太恶心了,最好的就是用Input M$的Rich Edit Text Box ActiveX控件,或者在Form的OnCreate事件中自己用CreateWindow创建一个子控制,如
hWndEdit := CreateWindow('EDIT', nil, WS_CHILD or WS_VISIBLE or WS_TABSTOP or ES_MULTILINE or ES_WANTRETURN, nLeft, nTop, nWidth, nHeight, Handle, uCtrlID, hInstance, nil);有点原始,是不是?注意保存其返回值,在Form Destroy时,注意销毁。uCtrlID为此编辑控制的ID。
hWndEdit := CreateWindow('EDIT', nil, WS_CHILD or WS_VISIBLE or WS_TABSTOP or ES_MULTILINE or ES_WANTRETURN, nLeft, nTop, nWidth, nHeight, Handle, uCtrlID, hInstance, nil);有点原始,是不是?注意保存其返回值,在Form Destroy时,注意销毁。uCtrlID为此编辑控制的ID。
[email protected]
其实并不是demo大小有限制,这是windows的关系,同一程序在windows2000就不会出现打开文件大小的限制。
SendMessage(RichEdit1.Handle,WM_USER+53,0,$7FFFFFFF);
Delphi的封装没有问题。