如何在RichEdit中加入表格

homer_lv 2003-01-20 05:20:26
用程序自动加入表格,我实验过,用Word生成一个表格后另存为rtf文档,可以直接用TRichEdit读出,那么如何在程序中直接生成表格呢?
...全文
115 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
homer_lv 2003-01-21
  • 打赏
  • 举报
回复
有没有什么不用控件的方法?
wangxd 2003-01-20
  • 打赏
  • 举报
回复
用formone
homer_lv 2003-01-20
  • 打赏
  • 举报
回复
有没有直接用RichEdit可以加入表格的方法,Ehlib并不太好使。
Billy_Chen28 2003-01-20
  • 打赏
  • 举报
回复
www.51delphi.com
homer_lv 2003-01-20
  • 打赏
  • 举报
回复
EHlib在那里有下载的?
Billy_Chen28 2003-01-20
  • 打赏
  • 举报
回复
不行,试试EHLIB里的RXTRICHEDIT
halibut 2003-01-20
  • 打赏
  • 举报
回复
不知道,正好可以学习一下,我听!UP!
不用第三方控件,让richEdit支持图片与表格换行 DELPHI 6 提供的RICHEDIT是1.0,并不支持图片,对复杂表格也会乱成一团,如何在DELPHI原有控件的基础上做少量修改,使之支持显示图片与正确显示表格,其实只需要几行就好了,方法如下: 找到richEdit控件所在单元ComCtrls.pas (在SOURCE\VCL) //第一步 procedure TCustomRichEdit.CreateParams(var Params: TCreateParams); const // RichEditModuleName = 'RICHED32.DLL';//原来语句 // RichEditClassName = 'RICHEDIT'; //原来语句 RichEditModuleName = 'Msftedit.dll'; //改后语句 RichEditClassName = 'RichEdit50W'; //改后语句 //第二步 procedure TCustomRichEdit.CreateWnd; .... //加入一行要放在 CreateWnd 因为此时 HANDLE已建立 Perform(EM_SetOleCallback, 0, Longint(TRichEditOleCallback.Create(TRichEdit(self)) as IRichEditOleCallback)) ; //第三步 procedure TCustomRichEdit.WMRButtonUp(var Message: TWMRButtonUp); begin inherited; // RichEd20 does not pass the WM_RBUTTONUP message to defwndproc, // so we get no WM_CONTEXTMENU message. Simulate message here. // if Win32MajorVersion < 5 then //是原有1.0的要去掉 Perform(WM_CONTEXTMENU, Handle, LParam(PointToSmallPoint( ClientToScreen(SmallPointToPoint(Message.Pos))))); end; //第四步 procedure TRichEditStrings.Insert(Index: Integer; const S: string); .... //要去掉后面两名 // 1.0 uses, 2.0 will error happened 2011 // if RichEdit.SelStart (Selection.cpMax + Length(Str)) then //是原有1.0的要去掉 // raise EOutOfResources.Create(sRichEditInsertError); //是原有1.0的要去掉

13,825

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧