T
tswhoney
Unregistered / Unconfirmed
GUEST, unregistred user!
以下语句是哪儿错了,为何输入0,1时什么也没有?急!!!!!!!!!!!!!!!!!111
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'2':combobox1.ItemIndex:=strtoint(key);
end;
end;
combobox的style为csDropDownList.
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'2':combobox1.ItemIndex:=strtoint(key);
end;
end;
combobox的style为csDropDownList.