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

Вниз

Drang&Drop   Найти похожие ветки 

← →
Sur ©   (2004-04-21 23:06) [0]

С меxанизмом Drang&Drop я никогда не работал.
Но сейчас передомной стоит такая задача:
я должен упорядoчить строки в компоненте TListBox (ручной),
xотья это помоему не совсем Drang&Drop, но все таки
возможно ли это сделать(полагаю да) и если да то
пожалуйста подскажите как.

---

← →
Sur ©   (2004-04-21 23:06) [0]

С меxанизмом Drang&Drop я никогда не работал.
Но сейчас передомной стоит такая задача:
я должен упорядoчить строки в компоненте TListBox (ручной),
xотья это помоему не совсем Drang&Drop, но все таки
возможно ли это сделать(полагаю да) и если да то
пожалуйста подскажите как.

---

← →
Gero ©   (2004-04-21 23:19) [1]

> С меxанизмом Drang&Drop я никогда не работал

Я тоже.
Если имеется ввиду Drag&Drop, то ListBox1.DragMode := dmAutomatic
OnDragOver, OnDragDrop + F1

---

← →
Gero ©   (2004-04-21 23:19) [1]

> С меxанизмом Drang&Drop я никогда не работал

Я тоже.
Если имеется ввиду Drag&Drop, то ListBox1.DragMode := dmAutomatic
OnDragOver, OnDragDrop + F1

---

← →
Игорь Шевченко ©   (2004-04-22 00:55) [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({not (Button = mbLeft)}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.


---

← →
Игорь Шевченко ©   (2004-04-22 00:55) [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({not (Button = mbLeft)}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.


---

← →
Miwa ©   (2004-04-22 01:10) [3]

А еще в разделе "Статьи" есть хорошая статья на эту тему.

---

← →
Miwa ©   (2004-04-22 01:10) [3]

А еще в разделе "Статьи" есть хорошая статья на эту тему.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.034 c