请教一下下～ 。 ～

Question

把ComboBox１.Items传进来的声明为TStrings类型的请教一下：）如果想把一个ComboBox１（控件名）作为参数传进过程里，怎么写呀
多谢谢！

Answer 1

procedure TForm1.SetComboDropWidth(oCombo:TComboBox);
var
  i,Max:Integer;
begin
Max:=0;
for i:=0 to oCombo.Items.Count-1 do
    begin
      if Max<oCombo.Canvas.TextWidth(oCombo.Items.Strings[i]) then
         Mas:=oCombo.Canvas.TextWidth(oCombo.Items.Strings[i]);
    end;
SendMessage(oCombo.Handle,CB_SETDROPEDWIDTH,Max*2,Max*2);
end;

Answer 2

我是想把一个ComboBox像参数那样传进过程里，不知如何声明？
（比如把ComboBox１.Items传进来，可将它声明为TStrings类型的）
调用一个过程，比如：在过程中将它的text赋值ComboBox.text='';

Answer 3

procedure TDataModule1.getorgdataname(dminstype:string;comb1,aStrings2,aStrings3 : TComboBox);

Answer 4

不好意思，刚才误操作了procedure TDataModule1.getorgdataname(comb1,comb2: TComboBox)；
请问有TComboBox这个类型吗？好像提示出错了