Forum: Sonstige Fragen zu Delphi
Delphi
by Specialwork,
28. Apr 2003
Hallo Aaron,
:bouncing4:
Hier die versprochene Lösung:
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Specialwork,
26. Apr 2003
Hallo Aaron,
Arbeite daran, und poste es Dir spätestens morgen
Gruß, Tom
Forum: Sonstige Fragen zu Delphi
Delphi
by Specialwork,
26. Apr 2003
Hallo Aaron,
Dein Problem ist, das sowohl Nextitem und CurrentItem auf nil zeigen.
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
if Sender = Source then
with TListView(Sender) do