盒子论坛 v2.1

老师，
　　您好！
　　我的窗体上有4种组件，分别是：TComboBox、TEdit、TListBox、TSpeedButton类型的组件。
　　
窗体布局：
　　这些组件中，需要进行特定排放的组件是TComboBox类组件和TEdit类组件，其它类组件的排放位置无所谓。。TComboBox类组件分为3列，每列的Left属性相同；每行TEdit类组件与TComboBox类组件的Top属性相同。

　　排列后，窗体中TComboBox类组件和TEdit类组件布局如下：

　　TComboBox（列1，行1）　　TComboBox（列2，行1）　TComboBox（列3，行1）　　　TEdit（行1）
　　TComboBox（列1，行2）　　TComboBox（列2，行2）　TComboBox（列3，行2）　　　TEdit（行2）
　　...共6行

要实现的功能：
　　在单击“清除”按钮后，将窗体中：TComboBox、TEdit、TListBox这三类组件的内容全部清空，要求在这三类组件中，TComboBox组件只能清空Text属性中的内容（即：只能清空目前选中的内容，而不能使用TComboBox.items.Clear这样的方法清空组件列表中的所有值）

对于这个目的，我是这样实现的：

procedure TfmBaseFilter.sbClearClick(Sender: TObject);
var
   ComSum: integer;
begin
  inherited;
  for ComSum := 0 to ComponentCount - 1 do
   begin
    if Components[ComSum] is TComboBox then
      (Components[ComSum] as TComboBox).Text := '';
    if Components[ComSum] is TEdit then
      (Components[ComSum] as TEdit).Text := '';
    if Components[ComSum] is TListBox then
      (Components[ComSum] as TListBox).Items.Clear;
   end;
end;

　　上述代码执行后，只清空了所有TListBox、TEdit类组件和第2列的TComboBox类组件的内容，而第1列和第3列的TComboBox组件的内容却没有清空（指这两列的所有行），这是为什么？这段代码该怎样改进？请老师指教。

----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2004/4/21 23:03:45

1楼：

(Components[ComSum] as TComboBox).items.Clear;
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复