Drag&Drop mit TcxListBox und TcxTreeList

[Blubbel]

Ok ein Problem gelöst. Habe vergessen DragMode auch Automatisch zu setzen.

Jetzt zeigt er mir ja aber noch an, dass sich die Nummer schon in dieser einen Gruppe befindet, obwohl da noch nichts drin steht.

ich werde mir mal meine Hilfsfunktionen angucken, ggbf euch zur Verfügung stellen.

Wenn cihs nun Durchsteppe geht schon die 2. If-Abfrage schief.

[Bummi]

bei cx geht das etwas um die Ecke ala

TcxDragControlObject(Source).Control

[Blubbel]

Soweit so gut. nun bekomme ich in der Zeile darunter eine Fehlermeldung

Zitat:

Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 0087A5A6 in Modul '*.exe'. Lesen von Adresse 00000000' aufgetreten.

Delphi-Quellcode:

if Assigned(Source)  then
  begin
    lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert
    begin
      i := TcxListBox(Source).ItemIndex;   //hier bekomme ich eine Fehler meldung

      if (i >= 0) then
      begin

ok, hab im Code jetzt Statt

Delphi-Quellcode:

 lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert

das hier daraud gemacht

Delphi-Quellcode:

 lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxTreeView) then //hier geändert

funktioniert soweit, dass es keine fehlermeldung gibt. Er zeigt mir noch immer an, dass die Nummer schon in der Gruppe ist. Ich werd ma gucken was ich selber herausbekommen kann. Freue mich trotzdem auf Vorschläge

[Furtbichler]

Du siehst den Wald nicht mehr

Delphi-Quellcode:

if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then 
    begin
      TheListBox := TcxListBox(TcxDragControlObject(Source).Control);
      i := TheListBox.ItemIndex;

[Blubbel]

Danke!! Jetzt meckert er weiter ich schau mal was ich tun kann... wenn ich gar nicht mehr weiter weiß schrei ich ganz laut

Hier ist der Schrei!!!

Delphi-Quellcode:

  if Assigned(Source)  then
  begin
    lSource := string(Source.ClassName);
    if (Source is TcxDragControlObject) and (TcxDragControlObject(Source).Control is TcxListBox) then //hier geändert
    begin
      lst1 := TcxListBox(TcxDragControlObject(Source).Control); //Hier auch geändert
      i := lst1.ItemIndex;

      if (i >= 0) then
      begin
        lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]); //Fehlermeldung
        {Im Projekt *.exe ist eine Exception der Klasse EAccessViolation mit der Meldung
        'Zugriffsverletzung bei Adresse 0087A5DE in Modul '*.exe'. Lesen von Adresse 00000280' aufgetreten}
        if Assigned(lNumber) then
        begin

[Furtbichler]

Blubbel: Der Wald. Die Bäume.

Delphi-Quellcode:

// So geht also der Zugriff auf die Listbox  
lst1 := TcxListBox(TcxDragControlObject(Source).Control); 
i := lst1.ItemIndex;
if (i >= 0) then begin
  lNumber := TphCSNumber(TcxListBox(Source).Items.Objects[i]); //Fehlermeldung
{ Wie geht nochmal der Zugriff auf die Listbox? *Mitdenfingernaufdemtischtrommel* }

[Blubbel]

Ich geh jetzt sterben...