Flytning af string i listbox

prøv der her :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

end.


Jens B

kigger lige med

me too...

me too.

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.

Jens B

Iøvrigt er der ikke så meget  at kigge med på .... Opgaven er jo læst.

´Jens B

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 !!

Jeg er sq nok ligt fat vag, kunne du ikke lige sende mig programmet. Så fixer jeg det lige ...

Jens B

Ok hvad er din E-Mail

Obs det er D4

Jens@Borrisholt.com

Kan evt. løses med

Try
ListBox.Items.Delete(ListBox.ItemIndex);
except
end;

Husk at lukke efter dig :-)

Jens B

Hvorfor kunne mit eks. med try, except, end; ikke bruges anold ????

Du skal jo huske at slå \"break on exceptions\" fra

/Zep

Zep, Jeg fatter ikke en sk.. af hvad du mener,
Jeg tror at det du vil er på et for højt plan til mig

Du skriver at du får en fejl i linjen \"ListBox.Items.Delete(ListBox.ItemIndex)\"

Dette kan løses ved at du udskifter den linje med

Try
ListBox.Items.Delete(ListBox.ItemIndex);
except
end;

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:

Try
Except
End;

Dette burde du kunne bruge.

/Zep

Beklager, kan ikke stave idag..... :-)