помогите с ListBox

[LeoN]

Воощем надо при тыкании на объект в ListBox,объект появлялся в другом ListBox.

[Virtson]

var iSource, iTarget: TListItem;
begin                                    {}
  with ListView1 do
    iSource:= Items[ItemIndex];
  with ListView2 do
    iTarget := Items.Insert(Items.Count);
  iTarget.Assign(iSource);
end;                                     {}

[Nikola]

Сообщение от LeoN

Воощем надо при тыкании на объект в ListBox,объект появлялся в другом ListBox.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
listbox2.Items.Add(listbox1.Items.S trings[listbox1.itemindex])
end;

Поясню. Кидаем на форму два листбокса, для первого в свойстве Items напишем любые строки, затем щёлкнем по нему двойным ЛКМ и допишем код до того который я написал выше.

[SuperVisor]

Nikola, здесь немного не то, Про то. что Дабл клик эт ты верно. А ты LoeN перепиши наипростейший обработчик на DblClick. Всегда рад помочь - держи.

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if ListBox1.Focused=true then
begin
ListBox1.CopySelection(ListBox2);
ListBox1.DeleteSelected;
end;
end;

Вот и вся процедура

[Nikola]

Сообщение от SuperVisor

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if ListBox1.Focused=true then
begin
ListBox1.CopySelection(ListBox2);
ListBox1.DeleteSelected;
end;
end;

Вот и вся процедура

Так почему-то не работает. Для чего служит Focused?

[SuperVisor]

Сообщение от Nikola

Так почему-то не работает. Для чего служит Focused?

Focused проверяет, активен ли List Box, хотя эту строку можно и убрать... попробуй для начала так, если не прокатит, то УБЕДИСЬ, что процедура стоит именно на дабл клик!!! первым кликом - выделение. вторым идет процедера, ну и на крайний случай проставь свойства List box:
AutoComplete: True;
Enabled: True;
ExtendedSelect: True;
Можешь добавить MultiSelect: True;

Пробуй, у меня работает.

[Nikola]

Так работает (в св-х lbox1 поставил для ondblclick эту процедуру)
Я не так понял Leon'а, Я думал, что он хочет отобразить элементы lb1 в lb2, но как теперь понимаю их нужно было перетащить туда.

[SuperVisor]

не стоит благодарности, если что, пиши

[LeoN]

воощем у меня получилось что все объекты отображались и только один.
теперь надобно чтобы объект добавлялся, а не заменял существующий.
переменные не очень люблю напишите через свойства.

[SuperVisor]

Сообщение от LeoN

воощем у меня получилось что все объекты отображались и только один.

Это как?

Сообщение от LeoN

теперь надобно чтобы объект добавлялся, а не заменял существующий.
переменные не очень люблю напишите через свойства.

Что значит заменялся? Если код написан верно, он будет добавлять, а не заменять!!!! Это проверено!!