对象相互赋值的问题？？

Question

wwDBComboBox1.Items.Clear;
    //wwDBComboBox2.Items.Clear;
    wwDBComboBox1.Style := csSimple;
    wwDBComboBox1.Picture.PictureMask := '##月##日';
    //wwDBComboBox2.Picture.PictureMask := '##月##日';
    wwDBComboBox2.Assign(wwDBComboBox1);
因为上面的两个控件的属性是一样的，所以我只想设置一个
控件地属性，然后通过wwDBComboBox2.Assign(wwDBComboBox1);
趿这样赋值。但是不能如我愿！　还是有什么好地办法

Answer 1

with wwDBComboBox1,wwDBComboBox2 do
begin
Picture.PictureMask := '##月##日';
Style := csSimple;
end;

Answer 2

写一个函数把要设置的控件作为参数，在函数里经常设置
外面的程序分别传入两个控件，不知道这样可以么？procedure InitCombo(aCombo: 控件的类型);
begin
 aCombo.Items.Clear;
 aCombo.Style := csSimple;
 aCombo.Picture.PictureMask := '##月##日';   
end;begin
  InitCombo(wwDBComboBox1);
  InitCombo(wwDBComboBox2);
end;

Answer 3

for i := 0 to ComponentCount -1 do
  if Sender is TwwDBComboBox then
    with (Sender as TwwDBComboBox) do
    begin
      ...
    end;

Answer 4

隻有一部分的控件的話，你可以：
for i := 0 to ComponentCount -1 do
  if Sender is TwwDBComboBox then
    with (Sender as TwwDBComboBox) do
      if Tag is 1 then
      begin
        ...
      end;