procedure TForm1.FormCreate(Sender: TObject); var i : INteger; begin Randomize; for i:= 0 to 10 do ListBox1.Items.Add(IntToStr(Random(5000))); end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Sender is TListBox; end;
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); var DragPos : Integer; Point : TPoint; ListBox : TListBox; s : String; begin if not (Sender is TListBox) then exit; Point.X := x; Point.Y := y; ListBox := (Sender as TListBox); DragPos := ListBox.ItemAtPos(Point, true); s := ListBox.Items[ListBox.ItemIndex]; ListBox.Items.Delete(ListBox.ItemIndex); ListBox.Items.Insert(DragPos, s);
end;
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var DragItem: Integer; Point : TPoint; ListBox : TListBox; begin if Button <> mbLeft then exit; Point.Y := y; ListBox := (Sender as TListBox); DragItem := ListBox.ItemIndex; if (DragItem > -1) and (DragItem < ListBox.Items.Count) then ListBox.BeginDrag(False); end;
Lige for en god ordens skyld vil jeg lige fortælle at hvis man bare ønsker at kigge med så kan man bare poste en tom kommentar. Så er man med, og der kommer iike mails til alle de andere der Deltager.
Hej Jens B Dit eks. virker fint men der er lige en lille hage ved det.
Jeg har 2 listboxe hvor jeg drag\'er fra listBox1 til ListBox2 , når jeg så er færdig med at drage så er det, at jeg ønsker at kunne flytte rundt på linjerne i ListBox2 via drag/drop
det vil sige at når programmet starter så er ListBox2 tom derfor får jeg en fejl i linjen
ListBox.Items.Delete(ListBox.ItemIndex); Håber at du kan hjælpe med en løsning på problemet !!
Så får du ikke længere nogen fejl. D.v.s. du får stadig fejlen når du afvikler programmet inde fra delphi, men ikke hvis du afhvikler det ude fra.
Du kan også undgå at få fejlen inde fra Delphi, ved at du i menuen Tools, finder den menu hvår du sætter punktet \"break on exceptions\" eller \"stop on exception\", og slår dette fra.
jeg kan ikke huske hvilken undermenu til \"Tools\" det er i Delphi 4.
Dette virker kun hvis du husker den øverste ændring med:
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.