Drag&Drop. Из ListView1 перетащить строку в Memo.

@Vovik_0_1 · Регистрация: 28.07.2011

Студворк — интернет-сервис помощи студентам

Привет всем! Помогите реализовать перетаскивание. Мне нужно из ListView1 перетащить строку в Memo. Как это сделать? Ну если это сложно то например из Edit1 в Edit2 перетащить мышкай слово.

@Vovik_0_1 · 07.04.2012, 22:26 **[ТС]**

Нужно было дабавить

C++
1
Form2->

Извеняюсь!

Добавлено через 4 минуты
Вопрос! У меня в Memo сразу должно быть и

C++
1
Memo2->Lines->Add(((TListView *)Source)->Selected->Caption+"("+((TListView *)Source)->Selected->SubItems->Strings[0]+")") ;

и

C++
1
Memo2->Lines->Add(Form2->ListBox1->Items->Strings[Form2->ListBox1->ItemIndex]);

Но тогда выскакивают ошибки!
Для ListBox1 делаю так

C++
1
2
3
4
Memo2->Lines->Add(((TListView *)Source)->Selected->Caption+"("+((TListView *)Source)->Selected->SubItems->Strings[0]+")") ;
 if (ListBox1->ItemIndex != -1){
 Memo2->Lines->Add(Form2->ListBox1->Items->Strings[Form2->ListBox1->ItemIndex]);
 }

Но не работает. А как ещё сделать проверку для ListView?

@kzru_hunter · 07.04.2012, 22:35

Пиши подробнее (вход, выход, ошибки), а то не понятно.
Проверяй в пустом проекте - больше шанса найти у себя ошибку.

@nick42 · 07.04.2012, 22:51

- перенести строку, в которой поля разделены запятыми можно так:

C++
1
2
3
   AnsiString gg = ((TListView *)Source)->Selected->Caption ;
   gg = gg+","+((TListView *)Source)->ItemFocused->SubItems->CommaText ;
   Memo1->Lines->Add(gg);

@Vovik_0_1 · 07.04.2012, 22:53 **[ТС]**

Мне нужно чтобы в Мемо можно было перетаскивать строки из listview и listbox. Но если делать так

C++
1
2
Memo2->Lines->Add(((TListView *)Source)->Selected->Caption+"("+((TListView *)Source)->Selected->SubItems->Strings[0]+")") ;
 Memo2->Lines->Add(Form2->ListBox1->Items->Strings[Form2->ListBox1->ItemIndex]);

то выскакивают ошибки. Когда я например кидаю из бокса то с начала выполняется

C++
1
Memo2->Lines->Add(((TListView *)Source)->Selected->Caption+"("+((TListView *)Source)->Selected->SubItems->Strings[0]+")") ;

но я кидал же не из виева а из бокса! ТОесть надо сделать както так:

C++
1
2
3
4
 if (ListView1->нажат){Memo2->Lines->Add(((TListView *)Source)->Selected->Caption+"("+((TListView *)Source)->Selected->SubItems->Strings[0]+")") ; }
 if (ListBox1->нажат){
 Memo2->Lines->Add(Form2->ListBox1->Items->Strings[Form2->ListBox1->ItemIndex]);
 }

@nick42 · 07.04.2012, 23:00

- ошибки, я думаю, потому, что используется

C++
1
((TListView *)Source)->

, а в Memo таскаются строчки не только из ListView (если я сильно ошибаюсь, поправьте меня...).

@kzru_hunter · 07.04.2012, 23:02

Вот. Перенос строк в Мемо можно делать как с ListBox, так и с ListView.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        ListBox1->DragMode = dmAutomatic;
        ListView1->DragMode = dmManual;
        ListView1->RowSelect = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Memo1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
        Accept = true;        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Memo1DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
        String sClassName = Source->ClassName();
        if ( sClassName == "TListBox" )
        {
                TListBox *listbox = (TListBox*)Source;
                if (listbox->ItemIndex != -1)
                {
                        Memo1->Lines->Add(listbox->Items->Strings[listbox->ItemIndex]);
                }
        }
        else if ( sClassName == "TListView" )
        {
                TListView *listview = (TListView*)Source;
                if (listview->ItemIndex != -1)
                {
                        TListItem *item = listview->Selected; // выбранная строка
 
                        String sString = item->Caption + "|"; // первый столбец
 
                        // остальные столбцы
                        for ( int i = 0; i < item->SubItems->Count; i++ )
                        {
                                sString += "|" + item->SubItems->Strings[i];
                        }
 
                        Memo1->Lines->Add( sString );
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        ListView1->BeginDrag(false, -1); // начать перенос
}
//---------------------------------------------------------------------------

@NIKOLAYY · 10.12.2012, 23:23

nick42-
А твом способом можно как-либо тактовой файл из рабосего стола например в мемо1 засунуть?

@nick42 · 11.12.2012, 00:43

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

nick42-
А твом способом можно как-либо тактовой файл из рабосего стола например в мемо1 засунуть?

- почему "нет"? Вот таким способом хотя бы...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
/* файл Unit1.cpp */#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{ 
    Memo1->Lines->Add(IntToStr(message.Drop));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(Form1->Handle, true);    
}
//---------------------------------------------------------------------------
 
/* файл Unit1.h */
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TMemo *Memo1;
        TButton *Button1;
        void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
        void virtual __fastcall WMDropFiles(TWMDropFiles &message);
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
#pragma option push -vi-
 BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
 END_MESSAGE_MAP(TForm);
#pragma option pop 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

В мэмо, я так понимаю, хэндлы приложений появляются после перетаскивания иконок. Идею развить, я думаю, сами сможете (..меня уже в сон клонит).

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Vovik_0_1 40 / 40 / 6 Регистрация: 28.07.2011 Сообщений: 431

	Drag&Drop. Из ListView1 перетащить строку в Memo. 05.04.2012, 15:21. Показов 4512. Ответов 27 Метки нет (Все метки) Привет всем! Помогите реализовать перетаскивание. Мне нужно из ListView1 перетащить строку в Memo. Как это сделать? Ну если это сложно то например из Edit1 в Edit2 перетащить мышкай слово. 0

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	07.04.2012, 22:35
	Пиши подробнее (вход, выход, ошибки), а то не понятно. Проверяй в пустом проекте - больше шанса найти у себя ошибку. 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	10.12.2012, 23:23
	nick42- А твом способом можно как-либо тактовой файл из рабосего стола например в мемо1 засунуть? 0