开发复合组件TLabel + TwwDBLookupCombo

老鸟跳过。。。。。。。。本文只是为小白准备的

--------------

TwwDBLookupCombo 组件是老牌控件包的 Inofpower 中的一个组件。Inofpower 很久也没有更新了，只是作了新版DELPHI的适配，组件的功能从D2007那些开始到现在，可以说几乎没有任何的改变；

可以官方觉得够用了吧。

我个人就非常喜欢这套组件包，它的DBGrid（TwwDBGrid）的例可以绑入twwdbedit,twwcombobox,twwLookupcombo,twwButton 等等组件包内的其它很多自身的组件，有人说 DevExpress 也可以。虽然看上去效果差不多，但是原理是不同的。相对于DevExpress那个壮硕的体积，这个可谓即小巧又灵活。使用还相当简单方便。（感觉想是在作广告，其实就是表达我确定挺喜欢的）

本文主要就是记录一下自己的心得。

从 TCustomControl 继承，如：

TJoeDBLookupCombo = class(TCustomControl)

具体的过程就不赘述了。说说我踩坑（其实不算坑，只是我太菜水平有限遇到的困难，花了不小时间才解决的）

大部分的属性或者事件，都可以简单的 get、set解决；这里要记录的就是我觉得插重要的，又不能简单Get/Set能解决的；

1、在设计期，双击 TwwDBLookupCombo 会弹出一个设置窗口（如下图：

如果想要在自己的组件控件中也这样。需要自己写一个类并编写（应该是抄）一些代码；

TDBLookupDisplayComponentEditor = class(TwwComponentEditor)procedure Edit; override;end;TDBLookupDisplayProperty = class(TPropertyEditor)procedure Edit; override;function GetAttributes: TPropertyAttributes; override;function GetValue: string; override;end;{ TDBLookupDisplayComponentEditor }procedure TDBLookupDisplayComponentEditor.Edit;
varlistHandle: TStrings;dataSet: TDataSet;useTFields: boolean;SelectedPropertyType: TwwSelectedPropertyType;
beginlistHandle := (Component as TJoeDBLookupCombo).LookupCombo.Selected;dataSet := (Component as TJoeDBLookupCombo).LookupCombo.LookupTable;SelectedPropertyType := sptNone;useTFields := TJoeDBLookupCombo(Component).LookupCombo.useTFields;if (EditSelectedFieldsProperty(TJoeDBLookupCombo(Component).LookupCombo, listHandle, dataSet, Designer, False, useTFields, SelectedPropertyType)) then beginTJoeDBLookupCombo(Component).LookupCombo.useTFields := useTFields;(TJoeDBLookupCombo(Component).LookupCombo as TwwDBLookupCombo).refreshDisplay;end
end;{ TDBLookupDisplayProperty }procedure TDBLookupDisplayProperty.Edit;
varlistHandle: TStrings;dataSet: TDataSet;component: TComponent;useTFields: boolean;SelectedPropertyType: TwwSelectedPropertyType;
begincomponent:= GetComponent(0) as TComponent;listHandle := (component as TJoeDBLookupCombo).LookupCombo.Selected;dataSet := (component as TJoeDBLookupCombo).LookupCombo.LookupTable;SelectedPropertyType := sptNone;useTFields := TJoeDBLookupCombo(component).LookupCombo.useTFields;if (EditSelectedFieldsProperty(TJoeDBLookupCombo(component).LookupCombo, listHandle, dataSet, Designer, False, useTFields, SelectedPropertyType)) then beginTJoeDBLookupCombo(component).LookupCombo.useTFields := useTFields;(TJoeDBLookupCombo(component).LookupCombo as TwwDBLookupCombo).refreshDisplay;end
end;function TDBLookupDisplayProperty.GetAttributes: TPropertyAttributes;
beginresult:= [paDialog];
end;function TDBLookupDisplayProperty.GetValue: string;
varlistHandle: TStrings;component: TComponent;
begin{(*}component  := GetComponent(0) as TComponent;listHandle := (component as TJoeDBLookupCombo).LookupCombo.Selected;if listHandle.count > 0 then  result := listHandle[0] else   result := '';{*)}
end;

然后注册它

procedure Register;
RegisterComponents('JoeDBComponents',[TJoeDBLookupCombo]);
RegisterComponentEditor(TJoeDBLookupCombo, TDBLookupDisplayComponentEditor);
RegisterPropertyEditor(TypeInfo(TStrings), TJoeDBLookupCombo, 'Selected', TDBLookupDisplayProperty);
end;

这个才能在双击这个复合组件（或在属性设置中双击 Selected 属性）时，弹出那个设置窗口；

当然，在 published 中，要将 Selected 显示出来

TJoeDBLookupCombo = class(TCustomControl)privateFLookupCombo  : TwwDBLookupCombo;
//..... 其它的代码省略
published
property Selected : TStrings read getSelectedFields write setSelectedFields;
//..... 其它的代码省略
end;//传递一下相关的设置
function TJoeDBLookupCombo.getSelectedFields: TStrings;
beginResult :=  FLookupCombo.Selected;
end;procedure TJoeDBLookupCombo.setSelectedFields(const Value: TStrings);
beginFLookupCombo.Selected := Value;
end;

---

下一篇说说  twwCheckBox + TwwLookupCombobo 

感觉跟 TLabel + TwwDBLookupCombo 差不多，其实也还真差不多。不过。仍然有需要记录的东西，比如说：wwCheckbox勾选与不勾选 wwLookupCombo的状态等。