Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
18. Aug 2010
GetItemAt kann auch nil zurückgeben, deshalb muss man immer daraufhin prüfen, bevor man mit dem Item weiterarbeitet. Du hast das nur im 2. Aufruf vergessen ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
18. Aug 2010
Wie ist es so?
procedure TMain_Form.ListView1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
Item: TListItem;
begin
Item := ListView1.GetItemAt(0, Y);
if Assigned(item) then begin
Item := ListView1.GetItemAt(X, Y);
if Assigned(Item) and (Item.Index <> ListView1.ItemIndex) then begin