摘要：
//函数单元。procedure TFormCYBase.ClearText(AControl:TWinControl);var I: Integer;begin for I := 0 to AControl.ControlCount - 1 do // Iterate begin //需清空处理控件 if AControl.Controls[i] is TCustomEdit then begi... 阅读全文
posted @ 2009-05-09 20:59
wystec
阅读(138)
评论(0)
推荐(0)
浙公网安备 33010602011771号