DragFileAccept Components

Ostatnia aktualizacja: środa 15 sierpnia 2018r.

Kody źródłowe komponentów rozszerzających funkcjonalność standardowych o możliwość przeciągania na nie plików z okien Explorera Windows. Dzięki temu można np. rozbudować program o opcje otwarcia przeciągniętego pliku, bądź obsługę metody przeciągnij i upuść dla plików. Opierają się na obsłudze wiadomości Windows WM_DROPFILES i własności DragAcceptFiles(). Więcej na ten temat możesz poczytać w poradzie dotyczącej akceptowania przeciągniętych plików przez dowolny komponent Delphi.

W skład wchodzą rozszerzenia dla komponentów:

• TComboBox
• TEdit
• TButtonedEdit
• TListBox
• TListView
• TMemo
• TPanel
• TRichEdit

Każdy z tych komponentów poprzedzony jest nazwą DragFileAccept (np. TDragFileAcceptEdit) i posiada zdarzenie OnDropFile na karcie zdarzeń (ang. Events). Zdarzenie to ma następującą postać:
procedure(Sender: TObject; FileNames: TStrings; Point: TPoint)
gdzie Sender przekazuje wskaźnik do obiektu wywołującego zdarzenie, FileNames jest listą przeciągniętych plików (wraz ze ścieżkami), zaś Point informuje o współrzędnych upuszczenia pliku. Należy pamiętać, że lista ta jest usuwana z pamięci zaraz po wyjściu z procedury obsługi zdarzenia!

Ponadto na karcie właściwości każdego z komponentów znajduje się pozycja AcceptDragFiles pozwalająca włączać lub wyłączać możliwość przeciągania plików na komponent.

Do zestawu dołączono także przykład zastosowania oraz działania nowych komponentów - znajduje się w archiwum w katalogu example.

Dla instalacji komponentów w wersji 3.0 w Delphi należy:

1. Wypakować zawartość archiwum do katalogu, w którym chcemy umieścić komponenty.
2. Otworzyć plik Packages\DragFileAccept.groupproj w Delphi.
3. Ustawić platformę na 64-bit Windows dla paczki DragFileAcceptR i skompilować.
4. Ustawić platformę na 32-bit Windows dla paczki DragFileAcceptR i skompilować.
5. Użyć opcji instalacji dla paczki DragFileAcceptD.
6. Komponenty zostaną zainstalowane na nowej karcie DragFileAccept.

Komponenty przeznaczone są dla:

• Do wersji 3.0: Delphi 2009, XE i nowsze.
• Do wersji 2.0: Delphi przed 2009.

W wersji 3.0 dodano komponent TDragFileAcceptButtonedEdit oraz podzielono paczkę komponentów na dwie: run-time i design-time. Jednocześnie przystosowano kody do najnowszych wersji środowiska Delphi.

W wersji 2.0 dodano własność pozwalającą wyłączyć akceptowanie przeciąganych plików. Z kolei w parametrach procedury obsługi zdarzenia upuszczenia pliku znajduje się parametr z pozycją upuszczenia.

Download

Wróć