Fehler bei Klick in TListView?

[Leanahtan]

Ich habe ein Problem mit einer TListView. Sobald man ein Element der Liste anklickt, kommt der Windows-Sound für einen Fehler (Ping). Das passiert unabhängig davon, ob ich das Event OnClick zugewiesen hab, oder nicht. Ansonsten funktioniert alles normal, beim Doppelklick wird z.B. ein neues Fenster geöffnet, indem auch problemlos auf das zum Eintrag gehörende Objekt zugegriffen werden kann.

Ich nehme mal an, der Sound kommt, weil irgendwo ein Fehler passiert, aber ich habe überhaupt keine Ahnung, wo ich nach einem Fehler suchen sollte, schließlich tritt das Problem ja auch auf, wenn ich überhaupt nicht auf OnClick reagiere.^^

Ich weiß nicht genau, welchen Code ich hier posten sollte, daher erstmal nur der Code zum Erzeugen der Liste:

Delphi-Quellcode:

procedure TMainForm.UpdateView;
var
  i : Integer;
begin
  GroundTilesListView.Clear;
  for I := 0 to TileSet.GTList.Count - 1 do
  begin
    GroundTilesListView.AddItem(TGroundTile(TileSet.GTList[i]).Name,TileSet.GTList[i]);
    GroundTilesListView.Items.Item[GroundTilesListView.Items.Count-1].ImageIndex:=0;
  end;
  Memo1.Clear;
  Memo1.Lines.Text:=TileSet.GetXMLString;
end;

Ach ja, ich benutze Turbo Delphi 2006.

[Jens Hartmann]

Hallo,

tritt beim Debuggen kein Fehler auf? Hast vielecht sonst irgendwo auf der Form eine Kompo, die eine OnKlick Ereigniss hat.

Gruß Jens

[Leanahtan]

Hmm, also beim Debuggen kommt jedenfalls im Ereignisprotokoll keine für mich verwertbare Fehlermeldung. Beim ersten Klick werden anscheinend 2 neue Threads gestartet (Thread-Start: Thread-ID...)? Damit kann ich aber nix Anfangen. Passiert auch nur beim ersten Klick - der Ping kommt aber immer. Ein OnClick eines anderen Elements glaube ich auch nicht - zumindest hab ich keins erstellt. Das TListView befindet sich allerdings in einem Tabsheet.

Als ViewStyle ist übrigens vsList eingestellt, und SortType ist stText. Ich vermute ja, dass ich irgendwo einen Fehler bei den Objekteigenschaften gemacht hab

[Matze]

Hallo,

ist es möglich, dass du ein kurzes Beispielprojekt erstellst und mit Exe und Source hier anhängst? Das würde uns die Fehlersuche erleichtern.

Grüße, Matze

[Jens Hartmann]

Also, es wäre aufjedenfall von Vorteil, wenn Du das Projekt mal anhängen würdest. Weil so, ist es nicht so einfach Dir zu helfen.

Dieser PING, kann ja auch eine positive Meldung sein, so wie z.B. beim erfolgreichen Anmelden oder so.

Gruß Jens

[Leanahtan]

Hmm, prinzipiell ist das mit dem Quellcode kein Problem, ist ja eh OpenSource. Problem ist nur, welche Dateien ich dazu alles zusammensuchen muss. Das komplette Projekt findet ihr unter

https://xforceffd.svn.sourceforge.ne.../branches/V917

Das neue Tool findet ihr dann unter tools/NewTileEditor.

Ist aber wohl etwas viel verlangt, deshalb den kompletten SourceCode von X-Force runterzuladen, zumal Sourceforge.net in letzter Zeit manchmal recht langsam war ^^

Ich werde mal versuchen, ob ich die nötigen Dateien in ein Zip-Archiv packen kann.

[SirThornberry]

Besteht das Problem auch wenn du ein neues Projekt anlegst und nur ein Listview mit ein paar Testeinträgen auf das Formular packst?

[Leanahtan]

Nein, in einem neuen Projekt hab ich das Problem nicht. Ich hab jetzt mal testweise die Liste aus dem TabSheet rausgenommen, und direkt aufs MainForm gesetzt - und das Problem ist verschwunden

[Leanahtan]

So, hab nun ein Zip-Archiv mit dem Quellcode des Tileseteditors erstellt. Damit ich nicht unzählige zusätzliche Units integrieren musste, hab ich die Funktionalität etwas eingeschränkt. Um das Problem zu reproduzieren, klickt einfach auf NewGroundTile, und dann auf einen der Listeneinträge. Hoffe, der Quellcode funktioniert so ^^

Edit: Sorry, hab die ungeschittene Version hochgeladen. Zip-Archiv aktualisiert ^^

[Leanahtan]

Hmm, scheint ein generelles Verhalten zu sein
Wenn man ein neues Projekt erstellt, dort lediglich ein TPageControl mit einem Tab erzeugt, und in dieses ein TListView packt (am einfachsten mit 1 oder mehr Testeinträgen), dann bekommt man das gleiche Problem.