Drag and drop

Du skal lave tre events for de to listboxe som vist i nedenstående eksempel:

unit udragtest;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=mbleft then (sender as tlistbox).begindrag(false, 10);
end;

procedure TForm1.ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept := (source is tlistbox);
end;

procedure TForm1.ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  p, i: integer;
begin
  p := (sender as tlistbox).itematpos(point(x,y), true);
  with (source as tlistbox) do
  begin
    for i := 0 to items.Count-1 do if selected[i] then
    begin
      if (sender = source)
      then items.Move(i, p)
      else (sender as tlistbox).Items.Insert(p, items[i]);
      inc(p);
    end;
//  if sender<>source then deleteselected;  hvis afsender-element skal fjernes

  end;


end;




end.

Kanon.
Det er så tæt på at være der.

Eneste problem er at man ikke må kunne overføre fra listbox2 til listbox1.

Fandt selv ud af det...

Kanon tak for hjælpen