Текущий архив: 2009.06.28;
Скачать: CL | DM;

Вниз

Drag and Drop внутри листа.   Найти похожие ветки 

← →
NaRuTo ©   (2009-05-09 22:41) [0]

Здраствуйте, уважаемые мастера программирования. Хочу поинтересоваться у вас как сделать Drag And Drop внутри компонента TListBox. Т.е хватаешь какой-то элемент и перетаскиваешь в другое место. Заранее спасибо.

---

← →
NaRuTo ©   (2009-05-09 22:42) [1]

Нужно чтобы при перетаскивании показывало будующую позицию элемента.

---

← →
Игорь Шевченко ©   (2009-05-09 23:39) [2]

unit main;

interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
   procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
   procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
     State: TDragState; var Accept: Boolean);
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
   ListBox1.BeginDrag(false);
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if Source = ListBox1 then
   with ListBox1,ListBox1.Items do
     Move(ItemIndex, ItemAtPos(Point(X, Y), True));
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
begin
 Accept:=Source = ListBox1;
end;

end.
?

---

Страницы: 1 вся ветка

Текущий архив: 2009.06.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c