【结贴】BizComboBox控件如何载入运行功能？**

zfang · 发表于 2009-3-10 09:47:38

楼主，给您试了一把，用下面的代码
procedure TMainForm.BizComboBox1CloseUp(Sender: TObject; Accept: Boolean);
begin
  if SysUtils.UpperCase(BizComboBox1.BizTreeView.SelectedNode.ObjectKind) = '.FUNC' then
Accept := True
  else
  begin
Accept := False;
BizComboBox1.DropDown;
  end;
end;

dupit · 发表于 2009-3-10 10:00:14

按11楼的方式解决了，多谢 zfang ，结贴

zfang · 发表于 2009-3-10 10:04:14

客气。

dupit · 发表于 2009-3-10 10:07:44

还有个小问题，如果当前选择的不是功能，关标点在 BizComboBox 控件外
有啥好方法

dupit · 发表于 2009-3-10 10:08:51

关标点在 BizComboBox 控件外可以关闭当前列表

zfang · 发表于 2009-3-10 10:15:26

你是说焦点不在Bizcombox时会关掉吗？那样做后好像不会自动关吧。

如果还关的话，你自己再在exit事件中处理看看。

		自动登录	找回密码
密码			立即注册