Bei Drag and Drop Listbox Verlust von Zeichen

[Samashy]

Ich hab ein seltsames Phänomen:

Bei Drag and Drop zwischen 2 Listboxen verliere ich immer das erste Zeichen. Macht man sich den Spaß das selbe Item immer hin und her zu schieben, ist die Bezeichnung irgendwann komplett verschwunden.

Weiß jemand Rat?

Delphi-Quellcode:

procedure Thauptform.lb_basisDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  lb : Tlistbox;
begin
  if Source is Tlistbox then begin
    lb := Source as Tlistbox;
    if lb.Name = 'lb_hr' then begin
        lb_basis.AddItem(lb_hr.Items.ValueFromIndex[lb_hr.Itemindex],
                         lb_hr.Items.Objects[lb_hr.Itemindex]);
        lb_hr.DeleteSelected;
    end;
  end;
end;

Danke,
Sam

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]

[Hawkeye219]

Hallo Sam,

die Eigenschaft ValueFromIndex dient dazu, den Wert eines Eintrag vom Typ

Code:

Name=Wert

zu ermitteln. Den kompletten String eines Listenelements kannst du direkt über Items[] abfragen:

Delphi-Quellcode:

...
if lb.Name = 'lb_hr' then begin
  lb_basis.AddItem(lb_hr.Items[lb_hr.Itemindex],
                   lb_hr.Items.Objects[lb_hr.Itemindex]);
  lb_hr.DeleteSelected;
end; 
...

Gruß Hawkeye

[Samashy]

Vielen Dank! :)

Ich habe inzwischen auch eine ähnliche Lösung gefunden. Aber das Phänomen ist doch dennoch sicher ein Bug, oder? :P


Liebe Grüße,
Sam