ListBox DragDrop !?!

[poterp]

hallo, ich möchte objekte bzw. texte innerhalb einer Listbox. ich habe folge code gefunden:

Delphi-Quellcode:

var // form level
   StartingPoint : TPoint;

implementation

...

procedure TForm1.FormCreate(Sender: TObject) ;
begin
   ListBox1.DragMode := dmAutomatic;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer) ;
var
   DropPosition, StartPosition: Integer;
   DropPoint: TPoint;
begin
   DropPoint.X := X;
   DropPoint.Y := Y;
   with Source as TListBox do
   begin
     StartPosition := ItemAtPos(StartingPoint,True) ;
     DropPosition := ItemAtPos(DropPoint,True) ;

     Items.Move(StartPosition, DropPosition) ;
   end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) ;
begin
   Accept := Source = ListBox1;
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
begin
   StartingPoint.X := X;
   StartingPoint.Y := Y;
end;

ich bekomme ein fehler und zwar: incompatibles types "Point und integer"
kann mir jemanden helfen?
grüß
Poter

[_frank_]

an welcher stelle bekommst du den fehler?

hab deinen code mal genommen und bekomme keinen Fehler (D3,D7), funktioniert wie erwartet...
übrigends die variable gehört in den gültigkeitsbereich des Forms :) sowas sollte man nicht unbedingt global definieren...

Delphi-Quellcode:

  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    StartingPoint : TPoint;

evtl. liegt der fehler woanders?

mal mein projekt mit deinem Code für compilierversuche im Anhang und zur Ergänzung meine Implementierung (falls die compilierung, warum auch immer, bei dir nicht funktionieren sollte):
http://www.fw-web.de/download.php?fi...ropListbox.zip

Gruß Frank

[poterp]

Danke Frank,
durch deine beispiele ist meine nächste frage beantwortet. Nun hätte ich noch eine andere Frage:
gibt es die möglichkeit in der Listbox1 mehrere objekt zu makieren und zu Listbox2 zuziehen???

danke poter

[Hawkeye219]

Hallo poter,

in der CodeLib findest du etwas: klick.

Gruß Hawkeye

[poterp]

Hallo Frank, ich habe deine quelle gedownloadet, ich verstehe eins nicht. alles bezieht sich auf den Listbox1. wie ist es denn wenn man mehrere Listboxen einfügen möchte?
was soll man in der quelle ergänzen??
grüß
poter

[_frank_]

der download link von meiner Webpage enthält dieses Feature schon, dort wird der sender/source ausgewertet (und auf TListbox gecasted, um an die Listbox-eigenschaften/Methoden zu kommen)...
das andere ist ja nur mein Testprojekt mit deinem Source, so als vergleich, da bei mir ja kein Fehler kam

Gruß Frank