Delphi组件类似于Outlook的显示附件

Question

是否有类似于Outlook使用的Delphi组件 显示附件？

我是D2006。所以我不熟悉 与任何新的德尔福 组件尚未。

谢谢！

Answer 1

使用ListView：

这是ListView的DFM：

object ListView1: TListView
  Left = 8
  Top = 8
  Width = 380
  Height = 28
  BorderWidth = 4
  Columns = <>
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsUnderline]
  Items.ItemData = {
    0376000000020000000500000001000000FFFFFFFF00000000FFFFFFFF000000
    00104C006F0067006F002E0067006900660020002800310020004B0042002900
    3B000500000005000000FFFFFFFF00000000FFFFFFFF000000001147006C006F
    00620065002E0067006900660020002800360020004B00420029003B00}
  ParentFont = False
  SmallImages = ImageList1
  TabOrder = 0
  ViewStyle = vsList
end