Login lub e-mail Hasło   

Delphi - Drag&Drop (czyli "przeciągnij i upuść")

Gdyby nie technika Drag&Drop, praca w systemie operacyjnym nie była by tak łatwa i intuicyjna jak dzisiaj. Z tego artykułu dowiecie się jak ją zaimplementować w Delphi.
Wyświetlenia: 1.710 Zamieszczono 22/01/2010


Kiedyś długo zastanawiano się jak przyspieszyć pracę przy komputerze, czyniąc ją bardziej efektywną a zarazem ergonomiczniejszą. Wiele nowoczesnych programów umożliwia użytkownikowi interakcje za pomocą standardu (czy raczej technologii) Drag&Drop. Pewnie nie od początku wiedzieliśmy jak nazywa się technologia, którą wykorzystujemy zupełnie nieświadomie ;)
Termin Drag&Drop pojawił się podczas projektowania pierwszych systemów operacyjnych z graficznym interfejsem użytkownika (tzw. GUI od ang. Graphics User Interface). Był to naprawdę bardzo dobry pomysł. Łączył w sobie prostotę i dużą ergonomię. Jednym słowem, od tej chwili, kursor stał się przedłużeniem naszej własnej graby.
W tym artykule nauczę Was obsługiwać technologię wirtualnej łapy w Delphi.
Zobaczycie jak to wszystko działa i co musi uczynić komponent docelowy aby przeciągany "ładunek" mógł zostać upuszczony.

Aby zrozumieć podstawowe zagadnienia związane z techniką Drag&Drop należy wspomnieć iż komponent nie może przyjąć przeciąganej "paczki danych" dopóki nie wyrazi na to zgody. Analogicznie, kontrolka nie może rozpocząć operacji Drag&Drop bez przygotowania się do niej za pomocą specjalnej instrukcji.
Za operację Drag&Drop odpowiadają tak właściwie jedynie dwa zdarzenia. Są nimi OnDragOver oraz OnDragDrop . Pierwsze z nich (OnDragOver) wywoływane jest gdy użytkownik, podczas operacji przeciągania, najedzie kursorem na dany komponent. Drugie zdarzenie (OnDragDrop) jest wywoływane wtedy gdy użytkownik upuści przeciągany element na kontrolkę.
Praktycznie, wykorzystuje się jeszcze jedno zdarzenie - OnMouseMove. Napiszmy zatem przykładowy program.

Piszemy program

  1. Uruchom Delphi'ego.
  2. Na formularzu umieść komponent ListBox oraz komponent Edit. Oba znajdują się na palecie Standard.
  3. Zaznacz komponent ListBox i w Inspektorze Obiektów odszukaj pole Items. Kliknij na nie. Kliknij następnie na przycisk "..." (trzy kropki), który się pojawi.
    Do okna które się pojawi wpisz jakieś bzdury. Podaje przykładowe bzdury ;) :
     
    Jan Kowalski
    Piotr Najsztub
    Wojtek Pręgała
    Aleksy Dajkiewicz
    Mirosław Tremn
    Witold Dółkowski
    Irena Zawada
     
    Zamknij okno, klikając na OK. Właśnie taaak ;)
     Przykładowe okno
    Przypis 1.0: Zbieżność nazwisk przypadkowa
  4. W Inspektorze Obiektów przejdź do zakładki Events (zdarzenia) i dwukrotnie kliknij w pole znajdujące się po prawej od OnMouseMove. Zostanie wygenerowana procedura, która wywoływana będzie wtedy, kiedy kursor myszy poruszy się nad komponentem (w tym wypadku jest nim zaznaczona kontrolka ListBox). Procedurę tą uzupełniamy następująco:

    procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    begin
      if ssLeft in shift Then
        ListBox1.BeginDrag(False);
      end;
    end;

    Pierwsza linijka: To warunek. Jeśli podczas przesuwania kursora nad komponentem jest wciśnięty lewy (ssLeft) przycisk myszy to...
    Druga linijka: Komponent ListBox1 ma rozpocząć operację Drag&Drop (instrukcja BeginDrag() ). Parametr instrukcji BeginDrag oznacza, czy operacja Drag&Drop ma rozpocząć się:
    • False gdy natychmiast (wartość pierwszego parametru False, drugiego parametru nie wpisujemy)
    • True gdy z opóźnieniem (po przejechaniu przez mysz kilku pikseli) (wartość pierwszego parametru True, drugi parametr oznacza ilość pikseli po których ma rozpocząć się operacja przeciągania)
  5. Przechodzimy do widoku formularza (naciskając klawisz F12).
  6. Zaznaczamy komponent Edit i w Inspektorze Obiektów, na zakładce Events odnajdujemy zdarzenie OnDragOver. Klikamy nań dwukrotnie, analogicznie jak poprzednio.
    Zostaje wygenerowana nowa procedura wywoływana wtedy, gdy użytkownik trzyma kursor (wraz z przeciąganym elementem) nad komponentem. Treść procedury uzupełniamy następująco:

    procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    begin
      if source is TListBox Then
        accept := True
      else
        accept := False;
      end; 

    Powyższy zapis jest bardziej czytelny dla początkujących. Można również zastosować równoważny zapis:

    procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    begin
      accept := (source is TListBox);
    end; 

    Należy wspomnieć w tym miejscu iż przypisanie do zmiennej accept wartości True spowoduje zaakceptowanie przeciąganej paczki. Oba zapisy akceptują paczkę jedynie wtedy kiedy pochodzi z komponentu typu TListBox. Jeżeli paczka pochodzi z komponentu innego typu wówczas nie będzie możliwe jej upuszczenie (charakterystyczny kursor w postaci zakazu).
  7. Przechodzimy do widoku formularza (klawisz F12).
  8. Zaznaczamy komponent Edit i w Inspektorze Obiektów, na zakładce Events odnajdujemy zdarzenie OnDragDrop. Klikamy nań dwukrotnie, analogicznie jak w poprzednich krokach.
    Zostaje wygenerowana nowa procedura, która wywoływana będzie wtedy, gdy użytkownik upuści przeciągany obiekt na komponent. Treść procedury uzupełniamy następująco:

    procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
    begin 
      TEdit(Sender).Text := TListBox(Source).Items.Strings[TListBox(Source).Itemindex];
    end; 


    Powyższa instrukcja powoduje przypisanie do komponentu (docelowego) typu TEdit aktywnej (zaznaczonej) pozycji komponentu (źródłowego) typu TListBox.
    Tak, wiem - nieco skomplikowane. Takie coś: TEdit(Sender) oznacza, że komponent docelowy (ten do którego przeciągamy dane) jest typu TEdit, czyli zwykłą kontrolką tekstową. Dzięki takiemu "trikowi" możemy przykładowo skorzystać z jego właściwości Text, która jest charakterystyczna jedynie dla kontrolek tekstowych.
    Gdybyśmy napisali samo Sender i postawili kropkę, w liście która by się rozwinęła nie spostrzeglibyśmy właściwości Text, gdyż tak naprawdę kompilator nie wiedziałby jakiego dokładnie typu jest parametr Sender.
  9. To już koniec. Możesz uruchomić program i sprawdzić czy działa, przeciągając pozycję z komponentu ListBox do komponentu Edit.

Zakończenie

Dzięki wszystkim za uwagę. Oczywiście do artykułu dołączam kod pisanej aplikacji. Technika Drag&Drop kojarzy się użytkownikom z rozbudowanymi i poważnymi aplikacjami. W tym artykule dowiedziałeś się, iż niewiele potrzeba do jej implementacji. Życzę wszystkim udanych projektów i zapraszam do mojego serwisu www.lukas-home-page.ovh.org, gdzie znajdziecie całe mnóstwo tego typu artykułów.

 

Łukasz "Lukas" Wyporek
lukas.home.page@gmail.com
http://lukashp.pl/Artykul/Programowanie/Delphi/delphi-drag_and_drop 

Podobne artykuły


8
komentarze: 79 | wyświetlenia: 1206
111
komentarze: 32 | wyświetlenia: 60812
54
komentarze: 56 | wyświetlenia: 32622
54
komentarze: 68 | wyświetlenia: 31320
50
komentarze: 27 | wyświetlenia: 63603
49
komentarze: 18 | wyświetlenia: 65024
39
komentarze: 50 | wyświetlenia: 23309
39
komentarze: 30 | wyświetlenia: 28899
37
komentarze: 9 | wyświetlenia: 28565
36
komentarze: 37 | wyświetlenia: 23588
34
komentarze: 21 | wyświetlenia: 26342
32
komentarze: 12 | wyświetlenia: 26711
 
Autor
Artykuł

Powiązane tematy






Brak wiadomości


Dodaj swoją opinię
W trosce o jakość komentarzy wymagamy od użytkowników, aby zalogowali się przed dodaniem komentarza. Jeżeli nie posiadasz jeszcze swojego konta, zarejestruj się. To tylko chwila, a uzyskasz dostęp do dodatkowych możliwości!
 

© 2005-2018 grupa EIOBA. Wrocław, Polska