紫 紫竹林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;
在下拉列表的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;
procedure TForm1.combobox1Select(Sender: TObject);edit1.text:=inttostr(20-combobox1.itemindex-1);end;
