Hi Leute.
Ich habe ein Problem mit einem Abschnitt in meinem Programm.
Dieser Abschnitt soll bei einem Rechtklick auf ein Item in meiner ListBox, den Text
des entsprechenden Items ändern. Das klappt auch, aber nur manchmal. Wenn ich z.B. neue
Elemente zu der listbox hinzufüge, dann passiert es manchmal dass die letzten 1-3 Einträge
nichtmehr klickbar sind. Ich realisiere das ganze mit ItemAtPos() was mir dann bei diesen Einträgen
den Index -1 zeigt. Daneben habe ich auch nicht geklickt, da bin ich mir sicher. Ich habe auch bis jetzt
noch nicht herausgefunden wie ich den Fehler zuverlässig reproduzieren kann. Manchmal klappt alles.
Aber hier erstmal der Code:
Delphi-Quellcode:
procedure TForm2.ListBox2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
cursorpos : TPoint;
ItmIndx : integer;
begin
Label1.Caption := ListBox2.Items[ListBox2.COunt-1];
if Button=mbRight then
begin
cursorpos.X := X;
cursorpos.Y := y;
ItmIndx := 0;
ItmIndx := ListBox1.ItemAtPos(cursorpos,true);
if ItmIndx = -1 then begin
end
//vl Fokus setzen weil er durch ungültige Position verloren geht??
else begin
ListBox2.ItemIndex := ItmIndx;
try
if AnsiLastChar(ListBox2.Items[ItmIndx]) = '▲' then begin
ListBox2.Items[ItmIndx] := StringReplace(ListBox2.Items[ItmIndx], '▲', '▼',[rfReplaceAll, rfIgnoreCase]);
end
else if AnsiLastChar(ListBox2.Items[ItmIndx]) = '▼' then begin
ListBox2.Items[ItmIndx] := StringReplace(ListBox2.Items[ItmIndx], '▼','▲',[rfReplaceAll , rfIgnoreCase]);
end;
except
end;
end;
end;
end;
So der Code wär vl. auch eleganter möglich gewesen, aber mir geht es ja zurzeit ertmal um den Bugfix.
Die Ästhetik muss sich noch gedulden.
Dann hoffe ich mal dass mir jemand helfen kann.
Bin neu hier im Forum, also wenn ich was an der Art meiner Fragestellung ändern soll, gerne bescheid sagen.
Danke schonmal