用菜单插入字符(300分)

B

Brazil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #1

窗口中有多个Edit、Memo、ComboBox元件，

一个子菜单如下：

abc
ABC
XYZ
xyz

在光标处于可以输入文字的元件（如Memo等...）时，
选择子菜单abc时，要在光标所在处插入字符abc，
选择子菜单ABC时，要在光标所在处插入字符ABC，
选择子菜单XYZ时，要在光标所在处插入字符XYZ，
选择子菜单xyz时，要在光标所在处插入字符xyz，

如何实现？

 

Z

Zythum

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #2

Insert

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #3

在MenuItem的OnClick中:
SendMessage(GetFocus,EM_REPLACESEL,1,LongInt(PChar(TMenuItem(Sender).Caption)));

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #4

给 o*o 吧

 

P

popeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #5

o*o的一行解决回去试试

 

B

Brazil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #6

接受答案了.