如何一个一个的删除combobox里当前显示的字符？(30分)

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #1

procedure TForm1Button1Click(Sender: TObject);
//清除
begin
ComboBox1.perform(wm_char,ord(#8),0);
end;
我点击Button1时，ComboBox1里根本就没反应！

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #2

procedure TForm1Button1Click(Sender: TObject);
//清除
begin
combobox1.setfocus;
combobox1.selstart:=length(combobox1.text);
ComboBox1.perform(wm_char,8,0);
end;

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #3

这样：
ComboBox1.perform(wm_settext,0,ord(#0));

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #4

一个个清除用迷糊老兄的
全部清除用桦树皮老兄的

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-25

• #5

问题出现了：
当combobox当前内容是全选或部分选择时，这个时候再按Button1仍然是
一个一个的删除！可当你按“BackSpace”键时，只删除选择部分。
能否实现只删除选择部分呢？