Hi ich sitz immernoch an meinem Präsentationsprogramm. Im Moment habe ich das Problem, dass
ich Textobjekte aus einer Liste zeichnen will und diese per MouseOver des Image auf dem sie platziert sind erkannt werden sollen.
Ich nutze hierzu folgenden Quelltext:
Delphi-Quellcode:
if speedbutton5.Down then
begin
for i:=1 to listview1.Items.Count do
begin
if (listview1.Items.Item[i-1].SubItems[0] < inttostr(X))
AND (listview1.Items.Item[i-1].SubItems[1] < inttostr(Y))
AND (listview1.Items.Item[i-1].SubItems[2] > inttostr(X))
AND (listview1.Items.Item[i-1].SubItems[3] > inttostr(y))
then image1.Cursor := crSizeall
else image1.Cursor := crdefault;
end;
end;
Leider erkennt das Programm immer nur den letzten Eintrag!!
Damit ihr selber sehen könnt, was da falsch läuft hab ich die Exe kurz mit angehängt.