Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизКак перетаскивать строки в ListBox е? Найти похожие ветки
← →
Bel (2003-08-20 11:52) [0]Надо, чтобы пользователь мог сам мышкой устанавливать строки в определённом порядке. Можно пойти путём: OnMouseDown -> запомнить номер строки -> OnMouseUp -> передвинуть на новое место.
Может, есть другой способ, полегче? Кто-нибудь знает?
← →
Skier (2003-08-20 11:55) [1]>Bel © (20.08.03 11:52)
> Может, есть другой способ, полегче?
Есть. В "Статьях" поищи...
← →
Ru (2003-08-20 11:55) [2]на этом сайте, если не ошибаюсь, и на королевстве дельфи есть статьи как реализовать dra&drop (тяни-бросай)
← →
VAleksey (2003-08-20 11:56) [3]Лучше использовать механизм Drag and Drop.
См. события OnDragDrop и OnDragOver.
← →
Игорь Шевченко (2003-08-20 11:57) [4]
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);
private
{ Private declarations }
public
{ Public declarations }
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.
← →
Bel (2003-08-20 13:33) [5]Всем спасибо!
to > Skier © . Блин, в FAQ посмотрел, а в статьи - забыл. :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c