Drag and Drop

[Xardas]

Скажите, пожалуйста, как с помощью мыши перетащить все выделенные строки из TCheckListBox в TListBox???

Заранее спасибо!!!

[BOBAH13]

Чесно говоря в интернете на счет drag and drop примеров уйма, причем практически для каждого компонента

[Xardas]

Проблема заключается в том, чтобы перетащить ВСЕ ОТМЕЧЕННЫЕ строки из TCheckListBox. По одной перетаскивать получается.

[BOBAH13]

Ну емае... используйте Sender: TObject присваивания к объекту ( к нужному компоненту ) типа TComponent(Sender).XXX ну и в цикле выделенные пункты копируете ( или что Вы там хотите ) в другой компонент Вы не знакомы с циклами чтоли ?

[Xardas]

Скажите, пожалуйста. Почему после перемещения мышью из TListBox в TCheckListBox появляется только флажок, а названия нету:

// добавление в CheckListBox1 мышкой
procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if n then CheckListBox1.Items.Add(ListBox1.It ems.Strings[ListBox1.itemindex]);
n:=false;
b:=false;
end;

[BOBAH13]

Чтот вы страшное написали ) мне кажется ListBox1.Items.Add после CheckListBox1.Items.Add будет лишним наверное надо так исходя из вашего кода:

// добавление в CheckListBox1 мышкой
procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if n then CheckListBox1.Items.Add({ListBox1.Items.Add}
(ListBox1.Items.Strings[ListBox1.itemindex]));
n:=false;
b:=false;
end;

[Xardas]

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

Чтот вы страшное написали ) мне кажется ListBox1.Items.Add после CheckListBox1.Items.Add будет лишним наверное надо так исходя из вашего кода:

// добавление в CheckListBox1 мышкой
procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if n then CheckListBox1.Items.Add({ListBox1.Items.Add}
(ListBox1.Items.Strings[ListBox1.itemindex]));
n:=false;
b:=false;
end;

Прошу прощения!!! Именно так у меня и записано. А проблема та же

[mihali4]

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

Скажите, пожалуйста. Почему после перемещения мышью из TListBox в TCheckListBox появляется только флажок, а названия нету:

// добавление в CheckListBox1 мышкой
procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if n then CheckListBox1.Items.Add(ListBox1.It ems.Strings[ListBox1.itemindex]);
n:=false;
b:=false;
end;

Для начала (как мне кажется) вы обрабатываете совсем не то событие...
Обрабатывать нужно OnDragDrop.
Хотя, возможно, лучше всего, если вы приведете тот кусок кода, который относится именно к Drag-Drop-у...
А с ВОВАНОМ я, в принципе, согласен...
Но полная ясность настанет только тогда, когда вы приведете код.

[Xardas]

Всем огромное спасибо!!!
Я нашел свои ошибки .