奉上我全部分数，问一下道定义在哪出了问题？？？

Question

combobox9:Tcombobox;
procedure E1change(edit:Tedit);
//-------------------
procedure Tmainfrm.E1change(edit:Tedit);
begin
if trim(Edit.text)<>'' then
  begin
     Tform(combobox9).Enabled:=true;
  end
  else
    Tform(combobox9).Enabled:=false;
end;
//判断输入的值是否为空，为空则不允许继续
//procedure Tmainfrm.E1change(edit:Tedit);
begin
 mainfrm.e1change(edit1);
end;//提示地址反问出了问题，应该是combobox9出了问题吧。希望大家能够帮帮忙,再次多谢了！！！！

Answer 1

晕，combobox怎么能强制转换为TForm呢？
直接对Combobox9.Enabled赋值不就可以了
 ________________________欢迎访问和宣传我的论坛http://hthunter.vicp.net/

Answer 2

...
  if trim(Edit.text)<>'' then
    combobox9.Enabled:=true;
  else
    combobox9.Enabled:=false;
...
{procedure Tmainfrm.E1change(edit:Tedit);
begin
 mainfrm.e1change(edit1);
end;}哪有这样用的？
procedure Tmainfrm.Button1Click(Sender: TObject);
begin
  e1change(edit1);  //这样调用
end;