ValueListEdit控件中，怎么在value域加入列表框，实现类似属性编辑框的数据输入窗体

ValueListEdit控件中，如何在value域加入列表框，实现类似属性编辑框的数据输入窗体
如题，请指教

------解决方案--------------------
在控件的OnGetPickList事件中编写如下代码：
procedure TMainForm.VEGetPickList(Sender: TObject; const KeyName: string;
Values: TStrings);
begin
if KeyName= '字型 ' then
begin
Values.Clear;
Values.Add( 'bold ');
Values.Add( 'italic ');
Values.Add( 'underline ');
Values.Add( 'bold italic ');
Values.Add( 'bold underline ');
Values.Add( 'italic underline ');
Values.Add( 'bold italic underline ');
end;
if KeyName= '字体 ' then Values.Assign(Screen.Fonts);
if KeyName= '对齐 ' then
begin
Values.Clear;
Values.Add( 'left ');
Values.Add( 'center ');
Values.Add( 'right ');
end;
end;