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!