TStringList的OnChange事件，及ComboBox的下拉箭头

Question

1、TStringList有个OnChange事件，要怎样才能把它赋给另一个过程或函数
2、怎样才能隐藏ComboBox的下拉箭头

Answer 1

1)在你要引用的那个过程中这样写
StringList1.OnChange(Self);2)把ComboBox的STYLE属性设置成“csSimple”，但是这样后，你怎么进行选择啊？

Answer 2

1.OnChange是个TNotifyEvent 的函数指针，原型是： TNotifyEvent = procedure(Sender: TObject) of object;
下面是例子，
procedure TForm1.Button1Click(Sender: TObject);
var
  aa:tstringList;
begin
  aa := tstringList.Create;
  try
    aa.OnChange := Button2Click;
    aa.Add('aaa');
    aa.Add('bbb');
  finally
    aa.Free;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('A');
end;2.楼主你的需求也太怪了

Answer 3

以后是我在BUTTON1的CLICK事件中调用EDIT1的Change事件procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1Change(self);
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
 showmessage('fdasf');
end;

Answer 4

2. 在OnClick里让它PopUp行不行啊？