Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 20.01.2008, 15:05   #1
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Адрес: Владимир
Сообщений: 320
Репутация: 139
По умолчанию Drag and Drop

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

Заранее спасибо!!!
Xardas вне форума   Ответить с цитированием
Старый 20.01.2008, 16:40   #2
BOBAH13
Android Developer
ПрофессионалФорумчанин
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,708
Репутация: 1457
По умолчанию

Чесно говоря в интернете на счет drag and drop примеров уйма, причем практически для каждого компонента
BOBAH13 вне форума   Ответить с цитированием
Старый 20.01.2008, 17:38   #3
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Адрес: Владимир
Сообщений: 320
Репутация: 139
По умолчанию

Проблема заключается в том, чтобы перетащить ВСЕ ОТМЕЧЕННЫЕ строки из TCheckListBox. По одной перетаскивать получается.
Xardas вне форума   Ответить с цитированием
Старый 20.01.2008, 20:19   #4
BOBAH13
Android Developer
ПрофессионалФорумчанин
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,708
Репутация: 1457
По умолчанию

Ну емае... используйте Sender: TObject присваивания к объекту ( к нужному компоненту ) типа TComponent(Sender).XXX ну и в цикле выделенные пункты копируете ( или что Вы там хотите ) в другой компонент Вы не знакомы с циклами чтоли ?
BOBAH13 вне форума   Ответить с цитированием
Старый 20.01.2008, 23:28   #5
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Адрес: Владимир
Сообщений: 320
Репутация: 139
По умолчанию

Скажите, пожалуйста. Почему после перемещения мышью из 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;

Последний раз редактировалось Xardas; 20.01.2008 в 23:43.
Xardas вне форума   Ответить с цитированием
Старый 20.01.2008, 23:39   #6
BOBAH13
Android Developer
ПрофессионалФорумчанин
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,708
Репутация: 1457
По умолчанию

Чтот вы страшное написали ) мне кажется 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;
BOBAH13 вне форума   Ответить с цитированием
Старый 20.01.2008, 23:45   #7
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Адрес: Владимир
Сообщений: 320
Репутация: 139
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Старый 20.01.2008, 23:59   #8
mihali4
*
Профессионал
 
Регистрация: 22.11.2006
Адрес: Москва
Сообщений: 9,201
Репутация: 2695
По умолчанию

Цитата:
Сообщение от 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-у...
А с ВОВАНОМ я, в принципе, согласен...
Но полная ясность настанет только тогда, когда вы приведете код.
mihali4 вне форума   Ответить с цитированием
Старый 21.01.2008, 00:09   #9
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Адрес: Владимир
Сообщений: 320
Репутация: 139
По умолчанию

Всем огромное спасибо!!!
Я нашел свои ошибки .
Xardas вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
drag $ drop в DBGrid AlexandrSid Общие вопросы Delphi 13 21.06.2010 10:55
Помогите с drag-and-drop Cezar Win Api 3 19.10.2008 15:48
Drag&Drop в ListBox'ах MAKEDON Общие вопросы Delphi 3 21.08.2008 13:12
Drag&Drop по сети в Delphi vovan-brn Помощь студентам 0 28.05.2008 23:12
Drag&Drop shtuceron Общие вопросы Delphi 3 09.04.2008 19:04


15:33.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.