GetItemAtPos macht bei Listbox manchmal probleme

[leonreiser]

Natürlich. Also hier hab ich noch die zwei Routinen für das Füllen und leeren. Dabei soll man sozusagen mit einem Klick auf ein Item jenes in die jeweils andere
Listbox schreiben:

Delphi-Quellcode:

procedure TForm2.ListBox1Click(Sender: TObject);
var
I :Integer;
begin
  for I := 0 to ListBox1.Count-1 do
    if ListBox1.Selected[I] = True then begin
        ListBox2.Items.Add(ListBox1.Items[I] + ' ▼');

       ListBox1.Items.Delete(I);
        break;
    end;
    ListBox1.Height := 16 * ListBox1.Count; // geschmackssache
    ListBox2.Height := 16 * ListBox2.Count; // geschmackssache

end;

procedure TForm2.ListBox2Click(Sender: TObject);
var
I :Integer;
begin
  for I := 0 to ListBox2.Count-1 do
    if ListBox2.Selected[I] = True then begin
      //  SortType[I] := Null;
      ListBox2.Items[I] := StringReplace(ListBox2.Items[I], ' ▼','',[rfReplaceAll , rfIgnoreCase]);
      ListBox2.Items[I] := StringReplace(ListBox2.Items[I], ' ▲','',[rfReplaceAll , rfIgnoreCase]);
        ListBox1.Items.Add(ListBox2.Items[I]);
        ListBox2.Items.Delete(I);
        break;
    end;
  ListBox1.Height := 16 * ListBox1.Count;  // geschmackssache
    ListBox2.Height := 16 * ListBox2.Count;   // geschmackssache
end;

[leonreiser]

Übrigens falls es jemanden interessiert, ich habe es nun einfach mit ListViews gemacht, da kann ich dann auch noch
Icons reinmachen und muss nicht unbedingt die blöden Sonderzeichen
als Zeile verwenden. Code dazu ist überall online aber wer ihn will solls einfach sagn, dann such ich ihn raus.
Ich weis übrigens immernoch nicht wie man eingene Threads im Forum löscht oder als geschlossen markiert.
Wenn jmd nen Tipp hätte wärs nich schlecht.
Ist warscheinlich ziemlich leicht und ich stell mich einfach blöd an.

[Sir Rufo]

Löschen wäre ja doof, denn dann hätte niemand etwas davon, der in Zukunft das gleiche/ähnliche Problem hat.

Jedes mal, wenn du antwortest, gibt es unter dem Editor eine CheckBox mit dem Text:

Zitat:

Dieses Thema als offene Frage markieren