如何在DBGRID中输入一些特殊符号，如◎○#？ ( 积分: 0 )

D

delphi_excel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #1

#可以直接输入,可是◎○怎么输?DBGRID中的内容要存入数据库,最后导入到excel中

 

D

delphi_excel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #2

#可以直接输入,可是◎○怎么输?DBGRID中的内容要存入数据库,最后导入到excel中

 

D

delphi_excel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #3

怎么没有回答我的问题？

 

M

mkim1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #4

你可以用keydown事件来写嘛。
if key = then
str1 := str1 + '你所需要的特殊符号（符号可以从word拷过来，硬性的写在代码里）'

 

J

jennykiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #5

那要看你装的输入法是不是支持特殊符号的录入了.当然你也可自己写段代码,让用户从你的特殊字符列表里面选.

 

绵

绵绵细雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-06

• #6

智能ABC的输入法用：v+1、2、3、4、5、6、7、8、9等可以输入中文特殊符号

 

D

delphi_excel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-07

• #7

to mkim1980:''key =''后面等于什么？

 

M

mkim1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-09

• #8

你随便啦！ 这个还要别人教啊？
自己在代码窗口写 vk_return 然后 Ctrl+左键 点它
所有键盘上的按钮的码都出来了。自己挑自己觉得方便的。

 

M

mkim1980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-09

• #9

直接告诉你得了。

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 then
begin
Edit1.Text := Edit1.Text + 'procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 then // 这个是F1键
begin
Edit1.Text := Edit1.Text + '◎';
end;

if key = vk_F2 then
begin
Edit1.Text := Edit1.Text + '○';
end;
end;

 

N

NbBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #10

设置一些字符敞亮置在word 中考过来。