Улучшение текстового редактора

@NAqpAN9I · Регистрация: 25.12.2009

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

Как обычно нужна помощь, учител сказал чтоб в текстовом редакторе открывался файл если его просто перетащить на окно, прошу помочь, как это реализовать и чем??

@Почтальон · 19.10.2015, 20:32

Не по теме:

Вы хотя бы текст ошибки в поиск по форуму вбили, удивитесь :)

@Danila00000 · 20.10.2015, 15:42

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

Новый Билдер (начиная с 2009) и Юникодный проект? Замени

Спасибо, помогло)))

Мой текстовый редактор спокойно компилируется. Вот только при переносе файла в окно ничего не происходит((( Скажите пожалуйста, что я не так сделал?

.h файл

C++ (Qt)
1
2
3
4
5
6
7
8
9
private:    // User declarations
            void __fastcall WmDropFiles(TWMDropFiles& Message);  
            void __fastcall ReadFile(AnsiString FileName);       
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
END_MESSAGE_MAP(TForm);
//---------------------------------------------------------------

.cpp файл

C++ (Qt)
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
void __fastcall WmDropFiles(TWMDropFiles& Message);  
void __fastcall ReadFile(AnsiString FileName);       
 
// Инициализация приложения--------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(RichEdit1->Handle, true); // Разрешаем перетаскивание файлов
}
//---------------------------------------------------------------------------
 
// Перетаскиваем файлы. Создаём события--------------------------------------
void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message)
{
   HDROP drop_handle = (HDROP)Message.Drop;
   TCHAR fName[MAXPATH];
   int filenum = DragQueryFile(drop_handle, -1, NULL, NULL);
   for(int i = 0; i < filenum; i++)
     {
     DragQueryFile(drop_handle, i, fName, MAXPATH);
      ReadFile(fName);
     }
   DragFinish(drop_handle);
}
// После перетаскивания, вычисляем расширения и открываем файл в RichEdit-----
void __fastcall TForm1::ReadFile(AnsiString FileName)
{
   AnsiString str = ExtractFileExt(FileName);
   if((str == ".txt")||(str == ".rtf"))
      RichEdit1->Lines->LoadFromFile(FileName);
}
//-----------------------------------------------------------------------------

@volvo · 20.10.2015, 16:01

1 и 2 строку cpp-файла можешь убрать, они лишние, прототипы методов уже описаны в классе формы.

C++
1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(Handle, true); // Разрешаем перетаскивание файлов на ФОРМУ, а не в Richedit
}

, потому что сообщение WM_DROPFILES должно приходить в класс формы, чтобы оно смогло обработаться твоим приложением.

@Danila00000 · 20.10.2015, 16:31

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

1 и 2 строку cpp-файла можешь убрать, они лишние, прототипы методов уже описаны в классе формы.

Спасибо вам огромное volvo

Теперь программа работает корректно)))

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@NAqpAN9I 0 / 0 / 0 Регистрация: 25.12.2009 Сообщений: 18

	Улучшение текстового редактора 28.12.2009, 15:49. Показов 5720. Ответов 23 Метки нет (Все метки) Как обычно нужна помощь, учител сказал чтоб в текстовом редакторе открывался файл если его просто перетащить на окно, прошу помочь, как это реализовать и чем?? 0

@Почтальон
	19.10.2015, 20:32
	Не по теме: Вы хотя бы текст ошибки в поиск по форуму вбили, удивитесь :) 0