Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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


 
Игорь Шевченко ©   (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]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
11-1067411606
SPeller
2003-10-29 10:13
2004.04.11
Интересно...


7-1079694074
amid
2004-03-19 14:01
2004.04.11
LPT (Windows 2000)


1-1082566479
Shag
2004-04-21 20:54
2004.04.11
Опять Excel


7-1080149340
Neogrand
2004-03-24 20:29
2004.04.11
Системный приоритет


3-1081952957
raul
2004-04-14 18:29
2004.04.11
почему в живых запросах вертикальная полоса прокрутки неправильн