我有一个按钮和一个cmbobox,在程序代码中写了一个Button1Click事件和一个comboboxChange事件
可以正常运行,还有一个不过为了方便,
我想在按钮事件中写一个IF语句,如果combobox的文本被改变,THEN 执行一行语句基本上IF 语句没有大问题,现在就是一个不明白
怎么在代码中写出comboboxr的文本被改变的效果
我写成 if combobox.text.change  then //......
就是错误的,请教高手,
if combobox.text.change 怎么写  //如果combobox的text被改变,则执行。

解决方案 »

  1.   

    procedure TForm1.ComboBox1Change(Sender: TObject);
    begin
      Button1Click(nil);
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
      if ComboBox1.Text='1' then
        ShowMessage('1')
      else if ComboBox1.Text='2' then
        ShowMessage('2');
    end;不知道你是不是这个意思
      

  2.   

    comboboxChange事件内:
    tag := 1;
    Button1Click事件内:
    if tag = 1 then showmessage('combobox的text被改变');
      

  3.   

    对比文本内容 或者 COMBOX1CHANGE 时修改 自己定义的修改标签(Boolean)
      

  4.   

    谢谢我懂了,我原来打算把改变改变事件做为一个代码,不做为事件,仅仅是一行代码写在按钮事件里
    用文字来说就是
    如果   控件COMBOX的TEXT内容被改变
    则     运行下面语句看楼上所说,必须要一个改变事件,而不能成为一会代码了。
    顺便请教一个问题。我在EDT的文本属性里设置了默认内容,是否也可以用一句代码在其他事件中完成
    文字描述就是
    EDT。TEXT:=《默认》//直接就恢复我在属性里设定的值,而不用我再次输入‘ ’等字符
    我在百度上看到过一句代码,好像默认是一个系统的涵数,但现在不知道哪找到了,有知道的回一下