Einzelnen Beitrag anzeigen

Benutzerbild von MisterNiceGuy
MisterNiceGuy

Registriert seit: 1. Jul 2003
Ort: Mannheim
919 Beiträge
 
Delphi 7 Personal
 
#1

Werte vergleichen, warum geht immer nur der letzte Eintrag??

  Alt 28. Jan 2005, 17:21
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.
Angehängte Dateien
Dateityp: exe dpp_130.exe (545,0 KB, 15x aufgerufen)
Jonas
Wenn mich jemand sucht, ich bin im Kühlschrank!

Informationen über das Duale Studium
www.jofre.de
  Mit Zitat antworten Zitat