Ĺadny brzuch
Witam
1. Jak można zrobić aby załadować plik tekstowy do Memo metodą drag&drop?
2. Jak można zrobić aby po uruchomieniu pliku ze swiom roszerzeniem np *.tds (niech będzie że jest to plik tekstowy taki jak txt) uruchamiał on się w moim programie?
Było, wszystko było...
ad1 http://forum.ks-eksp...showtopic=49137 tylko na cpp przekodzić musisz :P
Było, wszystko było...
ad1 http://forum.ks-eksp...showtopic=49137 tylko na cpp przekodzić musisz :P
Unit1.cpp
void __fastcall TForm1::FormCreate(TObject *Sender) { DragAcceptFiles(Handle, true); }
- tworzymy zdarzenie OnClose dla formularza nakazujĹĄc mu, aby przestał akceptować upuszczane pliki:
Unit1.cpp
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { DragAcceptFiles(Handle, false); }
- w pliku nagłówkowym tego formularza tworzymy mapę komunikatów (po deklaracjach w sekcji public, a przed końcem deklaracji klasy):
Unit1.h
BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TMessage, ondropFiles); END_MESSAGE_MAP(TForm);
- do sekcji private dodajemy funkcję obsługi komunikatu:
Unit1.h
private: MESSAGE void ondropFiles(TMessage &Message);
- w pliku ?ródłowym formularza wpisujemy kod funkcji odpowiedzialnej za akceptowanie upuszczanych plików:
Unit1.cpp
MESSAGE void TForm1::ondropFiles(TMessage &Message) { int nFiles; char buffer[256]; nFiles = DragQueryFile((HDROP)Message.WParam, 0xFFFFFFFF, NULL, 0); for (int i = 0; i < nFiles; i++) { DragQueryFile((HDROP)Message.WParam, i, buffer, 256); // tutaj zrób co chcesz z upuszczonym plikiem, np. dodaj do ListBox1: Memo1->Lines->LoadFromFile((AnsiString)buffer); } DragFinish((HDROP)Message.WParam); }
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Jak można zrobić aby załadować plik tekstowy do Memo metodą drag&drop?
2. Jak można zrobić aby po uruchomieniu pliku ze swiom roszerzeniem np *.tds (niech będzie że jest to plik tekstowy taki jak txt) uruchamiał on się w moim programie?
Było, wszystko było...
ad1 http://forum.ks-eksp...showtopic=49137 tylko na cpp przekodzić musisz :P
Było, wszystko było...
ad1 http://forum.ks-eksp...showtopic=49137 tylko na cpp przekodzić musisz :P

Unit1.cpp
void __fastcall TForm1::FormCreate(TObject *Sender) { DragAcceptFiles(Handle, true); }
- tworzymy zdarzenie OnClose dla formularza nakazujĹĄc mu, aby przestał akceptować upuszczane pliki:
Unit1.cpp
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { DragAcceptFiles(Handle, false); }
- w pliku nagłówkowym tego formularza tworzymy mapę komunikatów (po deklaracjach w sekcji public, a przed końcem deklaracji klasy):
Unit1.h
BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DROPFILES, TMessage, ondropFiles); END_MESSAGE_MAP(TForm);
- do sekcji private dodajemy funkcję obsługi komunikatu:
Unit1.h
private: MESSAGE void ondropFiles(TMessage &Message);
- w pliku ?ródłowym formularza wpisujemy kod funkcji odpowiedzialnej za akceptowanie upuszczanych plików:
Unit1.cpp
MESSAGE void TForm1::ondropFiles(TMessage &Message) { int nFiles; char buffer[256]; nFiles = DragQueryFile((HDROP)Message.WParam, 0xFFFFFFFF, NULL, 0); for (int i = 0; i < nFiles; i++) { DragQueryFile((HDROP)Message.WParam, i, buffer, 256); // tutaj zrób co chcesz z upuszczonym plikiem, np. dodaj do ListBox1: Memo1->Lines->LoadFromFile((AnsiString)buffer); } DragFinish((HDROP)Message.WParam); }