取得的Outlook目录并在TTreeView里显示出来

outlook对象提供了一个MAPI命名空间可以访问其文件夹集合,每个文件夹都有一个唯一的字符型标识符,可以将其作为数据保存在TTreeNode的EntryID属性里。例程如下,uses里加上ComObj。
  procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
  var
    i: Integer;
    node: TTreeNode;
  begin
    for i := 1 to Folder.Count do
    begin
      node := Form1.TreeView1.Items.AddChild(ParentNode, Folder.Item[i].Name);
      LoadFolder(node, Folder.Item[i].Folders);
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  outlook, namespace: OLEVariant;
begin
  outlook := CreateOleObject('Outlook.Application');
  namespace := outlook.GetNameSpace('MAPI');
  loadFolder(nil, NameSpace.Folders);
  outlook := UnAssigned;
end;

//rock
//转载请保留此信息

阅读终点,创作起航,您可以撰写心得或摘录文章要点写篇博文。去创作
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
### 回答1: 当然可以!以下是一些炫酷的Delphi界面控件图例: 1. TMS Component Pack - 这个组件包包含了许多绚丽多彩的控件,如TAdvSmoothListBox、TAdvCardList、TAdvPanel等。 2. Raize Components - 这个组件包提供了一些高质量的、专业的界面控件,如TDropTarget、TImageEn、TPageControl等。 3. DevExpress VCL - 这个组件包提供了一些高性能的、专业的界面控件,如TcxGrid、TcxScheduler、TcxTreeView等。 4. AlphaControls - 这个组件包包含了一些美观、现代化的控件,如TsAlphaComboBox、TsButton、TsCalendar等。 5. KControls - 这个组件包包含了一些现代化、高度可定制化的控件,如TKProgressBar、TKSpinEdit、TKDBDateTimePicker等。 希望以上信息能帮到您! ### 回答2: 当谈到Delphi的炫酷的界面控件图例时,以下是一些常见的示例: 1. 动画效果:Delphi提供了许多动画效果控件,如淡入淡出效果、滑动效果、旋转效果等。通过使用这些控件,可以给界面增添生动和吸引人的效果。 2. 渐变控件:Delphi拥有丰富的渐变控件,可以用于按钮、面板、标签等,给它们添加漂亮的颜色渐变效果,使界面更加鲜艳和吸引人。 3. 阴影效果:阴影效果在现代的界面设计中越来越常见。Delphi提供了一些控件,可以为框架、按钮和标签等元素添加阴影效果,提升界面的层次感和立体感。 4. 透明效果:Delphi的控件允许设置透明效果,使控件的背景透明度可以被调整,从而与父容器或其他控件产生交互效果,增加界面的美感。 5. 格式化文本:通过使用Delphi的控件,可以将文本格式化为各种样式,如粗体、斜体、下划线、不同的字体和颜色等。这样可以使文本在界面上更具吸引力和可读性。 6. 3D效果:Delphi提供了许多3D效果的控件,如3D按钮、3D标签、3D滑块等。这些控件可以给界面增添立体感,使用户能够更直观地与界面进行交互。 以上仅是一些示例,实际上,Delphi作为一款强大的开发工具,提供了许多其他炫酷的界面控件,开发者可以根据自己的需求和创意,加入更多动画、特效和创新的控件,以创建更加炫酷和令人印象深刻的界面。 ### 回答3: Delphi是一种基于Object Pascal语言的可视化开发环境,特别适用于Windows平台。它提供了丰富的控件库,可以方便地创建炫酷的界面效果。以下是一些常见的炫酷控件图例: 1. 动画控件:Delphi中的TImage组件可以加载图片序列,并逐帧播放创建动画效果。 2. 3D效果控件:Delphi提供了TShape组件和TImage组件,可以通过设置颜色、渐变和纹理等属性,实现平面或立体的3D效果。 3. 栅格控件:Delphi中的TStringGrid和TDrawGrid组件可以创建具有复杂结构的栅格界面,用于显示和修改表格数据。 4. 树状控件:Delphi的TTreeView和TListView组件提供了创建树状结构的界面,并支持拖放、展开和折叠等交互操作。 5. 文字效果控件:Delphi的TLabel和TStaticText组件支持设置字体、颜色、阴影和渐变等属性,可以创建炫酷的文字效果。 6. 进度条控件:Delphi中的TProgressBar组件可以用于显示任务的进度,可以自定义背景、颜色和动画效果。 7. 图表控件:Delphi的TChart组件库提供了丰富的图表类型,包括折线图、柱状图、饼图等,可以用于数据可视化和分析。 8. 动态菜单控件:Delphi的TPopupMenu组件可以创建弹出式的菜单,可以自定义菜单项的样式和动画效果。 以上是一些常见的Delphi控件图例,通过合理地组合和设置这些控件,可以创建出炫酷的界面效果。当然,在实际开发中,还可以根据需要自定义控件的外观和行为,以满足特定的设计需求。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ypyRock

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值