control ID 实现它的方法 Do [...] Number := iState; 实现属性的Set [...] 属性的Set方法 StateNumber 的