About ListBox and Mouse

← →
AlexPotemkin © (2002-05-31 12:08) [0]

Вопрос такой.
Есть два ListBox, как организовать перетаскивание элементов ListBox-ов из одного в другой при помощи мышки.
Заранее благодарен за внимание к вопросу.

← →
Игорь Шевченко © (2002-05-31 12:26) [1]

Из самого в себя:
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.

По аналогии из одного в другой :-)

← →
Толик © (2002-05-31 14:36) [2]

File->New->Forms->DualListBox
В Борланде уже о Вас позаботились :)

Большое спасибо Игорю Шевченко и Толику за ответы!!!
Фразу Толика сразу напоминает стандартный ответ монстров программописания (о как выразился) которые первым делом спрашивают "На F1 ходил?", нет не ходил because лентяй от рождения.

СПАСИБО ВСЕМ ОТВЕТИВШИМ ЕЩЕ РАЗ!!!

About ListBox and Mouse Найти похожие ветки