如何输入“★●◆■▲※♂♀√∵∴”(100分)

  • 主题发起人 主题发起人 的士
  • 开始时间 开始时间

的士

Unregistered / Unconfirmed
GUEST, unregistred user!
如何向TRichEdit中输入“★●◆■▲※♂♀√∵∴”等特殊符号。
如何使 TRichEdit的光标指向某一行
 
1。用Ctrl+Space弹出输入法,右击软键盘,选择特殊符号等,然后按相应的键。
2。设置SelStart属性。
 
如果只是想输入这些符号,最简单的方法是打开WORD,然后从里面选择插入->符号....
 
不好意思,我没有说清楚。我是想自己用程序控制。比如按下某个按钮,就会在当
前光标处输入一种特殊符号。
 
to 的士:
你可以把这些特殊的字符存储到文件中,要用的时候在取出来
 
我想,首先应该响应OnKeyDown,然后如trustzhou所说,将对应的字符取出来。
提一点小建议:
  用ClientDataSet控件,将你所用的特殊字符存储到一个文件中,用ClientDataSet控件
的Save As...,扩展名任意。
  然后在程序中用ClientDataSet读此文件,因无须BDE所以分发也方便。
如:Key Char
-------------------
1 ★
A ●
其中Key字段也可用数值型,记录每一种键盘字符或其组合,Char字段对应特殊字符.
 
procedure TForm1.RichEdit1KeyDown(...);
const
s: array ['a'..'k'] of string[2] =
('★', '●', '◆', '■', '▲', '※', '♂', '♀', '√', '∵', '∴');
begin
if Key in ['a'..'k'] then begin
Key := #0;
RichEdit1.Perform(WM_CHAR, Ord(s[Key][1]), 0);
RichEdit1.Perform(WM_CHAR, Ord(s[Key][2]), 0);
end;
end;
 
你不是可以输出了?
选择拼音简码输入,点级右键,
选择软键盘
 
我正在做一个文本编辑器,要在工具栏按钮上显示这些特殊字符,如果点击了按钮,
就向TRichEdit的当前光标处插入这种特殊字符。能办到吗?
 
第一个问题解决了,第二个如何搞定:
比如TRichEdit有100多行,我要将光标指向第20行的开头,请问如何实现
 
RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, 19, 0);
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
 
多人接受答案了。
 
后退
顶部