|
#1
|
|||
|
|||
Помощь c ListView
Помогите пожалуйста , как организовать в ListView два столбца Items.
Я делаю так: Код:
procedure CollectInformation; begin InputQuery('Ввод данных', 'Введите время:', strA); InputQuery('Ввод данных', 'Введите причину:', strB); end; procedure TEditorRingWindow1.SpeedButton4Click(Sender: TObject); begin CollectInformation; ListView1.Items.Add.Caption := StrA; ListView1.Items.Add.SubItems.Text := StrB; end; И у меня получается что, Безымянный.bmp. |
#2
|
||||
|
||||
Так:
Код:
var ListItem : TListItem; begin ... ListItem := ListView1.Items.Add; ListItem.Caption := StrA; ListItem.SubItems.Add(StrB); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
N.I.K.O.L.A (06.01.2012)
|
#3
|
|||
|
|||
Спасибо большое.
|