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;