Einzelnen Beitrag anzeigen

Benutzerbild von juergen
juergen

Registriert seit: 10. Jan 2005
Ort: Bönen
1.175 Beiträge
 
Delphi 11 Alexandria
 
#1

Listview.OnMouseMove löst AV aus, ich weiß nicht warum

  Alt 18. Aug 2010, 15:15
Delphi-Version: 2007
Hallo zusammen,
bin nun schon einige Zeit zugange und finde das Problem einfach nicht.
Andere Fehler konnte ich beseitigen mit Assigned.
Ziel ist es, wenn die Maus den Itemindex wechselt innerhalb der 1. Spalte(!), soll eine andere Form geschlossen werden.
Sowie ich aber mit der Maus aus der ersten Spalte (caption!) in den Bereich einer anderen Spalte (SubItem[x]) komme, gibt es eine Zugriffsverletzung.
Im Moment verwende ich folgendes:
Delphi-Quellcode:
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
    if ((ListView1.GetItemAt(X, Y).Index) <> (ListView1.ItemIndex)) then begin
      with Sender as TListView do begin
        if Assigned(Fotovorschau_am_Mauszeiger_Form) then begin
          Preview_Form.Close;
        end;
      end;
    end;
  end;
end;
Ich erkenne anscheinend das Problem nicht und weiß somit auch nicht wie ich reagieren muss.

Kann jemand das Problem erkennen?

Vielen Dank schon mal vorab!
Jürgen
Indes sie forschten, röntgten, filmten, funkten, entstand von selbst die köstlichste Erfindung: der Umweg als die kürzeste Verbindung zwischen zwei Punkten. (Erich Kästner)
  Mit Zitat antworten Zitat