一个控件的问题，不难的(50分)

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #1

我有这么一个想法：
用一个edit+tlistbox或着 是tcombobox实现这样一个功能
:选中一个items 上面的text（edit.text或combobox。text）等于原来的值加上选中
的值
比如：原来的edit.text是：abcd
listbox的items是e,f,g.........我选中e 要使得edit.text的值为‘abcde’
怎么操作？

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #2

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex<>-1 then
edit1.Text:=edit1.Text+listbox1.items[ListBox1.ItemIndex];
end;

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #3

var oldstr:string;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex<>-1 then
edit1.Text:=oldstr+listbox1.items[ListBox1.ItemIndex];
end;

procedure TForm1.ListBox1Enter(Sender: TObject);
begin
oldstr:=edit1.Text;
end;

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #4

多谢你了~`
那我要是想在edit的onExit事件写代码怎么半呢（tedit是动态建立的）？
我试过了，可以写onchange的事件，(edit.onchange:=form1.procedure
onExit就是不行（不响应）我是这么写的(edit.onExit:=form1.procedre-一个方法

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #5

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=665160

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-10

• #6

多人接受答案了。