求助，一个非常奇怪的问题，edit 和 combobox 的 onchang 事件不起作用，请高手帮我顶啊，谢谢~！

Question

procedure TQueryIncomeStoredroomIdForm.ComboBox1Change(Sender: TObject);
begin
       showmessage('kkkkkkkk');
end;procedure TQueryIncomeStoredroomIdForm.Edit1Change(Sender: TObject);
begin
        showmessage('llllllllll');
end;可是不起作用啊~~QueryIncomeStoredroomIdForm  窗体是这样创建出来的
procedure TGamerIncomeOrOutcomeStoredroomForm.N1Click(Sender: TObject);begin
        IncomeStoredroomIdForm:=TIncomeStoredroomIdForm.Create(nil);
          IncomeStoredroomIdForm.ShowModal;
        finally
          IncomeStoredroomIdForm.Free;
        end;
end;是不是我别的地方没有做好啊 ！谢谢各位大哥！

Answer 1

检查一下ComboBox1的OnChange事件有没有关联到ComboBox1Change？

Answer 2

windindance 大哥：
怎么关联啊？
谢谢！

Answer 3

IncomeStoredroomIdForm:=TIncomeStoredroomIdForm.Create(nil);
try
   IncomeStoredroomIdForm.ShowModal;
finally
   IncomeStoredroomIdForm.Free;
end;
还有事件是否写到了里面
有 的时候你点击的是一个事件但是 写的时候 就不是了   

Answer 4

ComboBox有没有什么变化的信息，比如ItemIndex有变化吗
  比如:
  FormCreate事件中写：
  Combox1.Items.Clear;
  Combox1.Items.Add('111');
  Combox1.Items.Add('222');
  Combox1.ItemIndex := 1;
  这时候肯定会触发OnChange事件
Edit同样的，如果Text内容变化了也会触发的

Answer 5

procedure TQueryIncomeStoredroomIdForm.ComboBox1Change(Sender: TObject);
begin
       showmessage('kkkkkkkk');
end;procedure TQueryIncomeStoredroomIdForm.Edit1Change(Sender: TObject);
begin
        showmessage('llllllllll');
end;procedure TQueryIncomeStoredroomIdForm.FormCreate(Sender: TObject);begin
       combobox1.Items.Clear;
       combobox1.Items.Add('ok');
       combobox1.Items.Add('no');
       Combobox1.ItemIndex := 1;
       edit1.Text:=123';end;
编译的时候弹出是‘llllllllll’，
而   ‘kkkkkkkk’  没有弹出
各位大哥，请帮我再顶顶啊！
谢谢！

Answer 6

这样的不触发是没有写触发代码，procedure TQueryIncomeStoredroomIdForm.FormCreate(Sender: TObject);begin
       combobox1.Items.Clear;
       combobox1.Items.Add('ok');
       combobox1.Items.Add('no');
       Combobox1.ItemIndex := 1;
       Combobox1Change(Self);
       edit1.Text:=123';
end;

Answer 7

好好的摸索一下，其实很多东东都是摸索出来的，控件的编程还是比较简单的
procedure TQueryIncomeStoredroomIdForm.FormCreate(Sender: TObject);
begin
       combobox1.Items.Clear;
       combobox1.Items.Add('ok');
       combobox1.Items.Add('no');
       Combobox1.ItemIndex := 1;
       Combobox1Change(Self);//这样的方法经常用到的
       edit1.Text:=123';
end;

Answer 8

czx0514 大哥
还是没反应就是
procedure TQueryInGamecomeStoredroomIdForm.BitBtn1Click(Sender: TObject);begin
       showmessage('kkkkkkkk');
end;
单击 BitBtn1，都不弹出  'kkkkkkkk' 啊？czx0514 大哥还有什么方法啊？谢谢！

Answer 9

czx0514 大哥 
还有更绝的，我放了一个 Button1 到 QueryInGamecomeStoredroomIdForm 窗体上
可是编译的时候  Button1 都不见了（看不到）是不是 我动 QueryInGamecomeStoredroomIdForm 的哪个属性呢？谢谢！

Answer 10

控件是不是从别的FORM中拷贝而来，其触发事件是原来的控件。

Answer 11

crazybb 大哥：
不是 更奇怪的是，我现在向  QueryInGamecomeStoredroomIdForm 窗体 加控件
可是在编译运行后，我现在添加的控件都看不到了啊是不是 QueryInGamecomeStoredroomIdForm 处在某种模态下啊~~谢谢！

Answer 12

你新建一个工程，在里面用
procedure TForm1.BitBtn1Click(Sender: TObject);begin
       showmessage('kkkkkkkk');
end;
看看能不能弹出来，不行就重装DELPHI