触发 DropDown事件  如下

procedure TUserDetail.ComboBox1DropDown(Sender: TObject);
var
  i: Integer;
begin // 得到所有的用户的编号，显示在下来列表中，便于用户选择
  combobox1.Clear;
  with DM.GetUserName do
  begin
    close;
    prepared := false;
    prepared := true;
    open;
    if (RecordCount > 0) then
      first;
    for i := 0 to RecordCount - 1 do
    begin
      combobox1.Items.add(Fieldbyname('UserID').asstring);
      next;
    end;
  end;
end;

至少两个事件 DropDown和CloseUp

其实这个问题可以自己测的，在每个可能的事件上都ShowMessage（'事件名'），你就很清楚究竟会发生什么事情

一觸發DropDown事件