看起来很简单的问题：ComboBox1Change事件后要改变选择的内容(50分)

S

sunyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #1

如何实现这个效果：
procedure TFrmDczj.ComboBox1Change(Sender: TObject);
begin
combobox1.text:='abcd'+combobox1.text;
end;

 

T

tata1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #2

答案如下，但我自己不喜欢这样的代码。
procedure TFrmDczj.ComboBox1Change(Sender: TObject);
begin
ComboBox1.OnChange := Nil;
Combobox1.text:='abcd'+combobox1.text;
ComboBox1.OnChange := ComboBox1Change;
end;

 

S

sunyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #3

to：tata1
好象不起作用
？

 

S

seaerwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #4

你的意思很不明确，'abcd'在你输入时会出现吗？你希望在每输一个字符时就+个'abcd',就如
->a abcda
->g abcdaabcdg
还是其他意思

 

T

tata1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #5

具体实现效果要看sunyb自己的打算了。
我的代码只是说明要避免一下OnChange事件的循环发生。

 

S

sunyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #6

对不起各位，我还以为这个操作应该比较清楚的：
我想在ComboBox1改变时ComboBox1内容前自动加上EDIT1的内容，
我现在只能通过ADD来实现，但是不舒服

 

H

huntor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #7

试了一下，不会引起循环调用，也不能实现你的功能。
关注!