Utilisez un ListView:
Voici le DFM pour le ListView:
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
Je pense que ListView pourrait être le chemin à parcourir. Pas aussi élégant que celui d'Outlook. – Rick
Je ne pense pas que vous pouvez accomplir ceci sans une solution de contournement (en le dessinant par vous-même ou en utilisant un TListView). – RBA