Da scheint es korrekt eingetragen zu sein:
Code:
object Form2: TForm2
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 284
ClientWidth = 418
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object dxICQClient1: TdxICQClient
LoginHost = 'login.icq.com'
Capabilities = <
item
end
item
end
item
Capability = 'test'
end
item
end
item
end
item
end
item
end
item
end
item
end
item
end>
ClientDetection = <>
Left = 152
Top = 112
end
end
Wobei ich nicht verstehe, warum die im OnCreate des TdxICQClient zugewiesenen Capabilites nicht eingetragen werden. Da geht es mit:
FCapabilities.Add.Capability := 'irgendwas';