菜鸟提个问题(100)

紫

紫竹林23424

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-21

• #1

我要实现这样一个功能 下拉列表框有1到20个数，比如我按2，信息框返回18， 按7，返回13， 按19，返回1，如果按20，返回0，代码怎么写呢

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-21

• #2

form接收输入，判断输入为数字，则进行（20-输入）处理

 

动

动心忍性

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-25

• #3

在下拉列表的OnKeyPress事件写入 判断#2 #7等 就将ComBox.text = 18...

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-25

• #4

在下拉列表的OnKeyPress事件写入 case combobox1.itemindex of0:begin.... combobox1.text:=xxx;end;1:begin.... combobox1.text:=xxx;end;.....20:begin.... combobox1.text:=xxx;end;

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-25

• #5

procedure TForm1.combobox1Select(Sender: TObject);edit1.text:=inttostr(20-combobox1.itemindex-1);end;