Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Listbox, dinge anzeigen bei anklicken (https://www.delphipraxis.net/159469-listbox-dinge-anzeigen-bei-anklicken.html)

Nightangel 29. Mär 2011 16:25

Listbox, dinge anzeigen bei anklicken
 
Hallo,
ich bin ein Anfänger beim programmieren udn ahbe ein Infoprojekt und kA wie ich weiter machen soll auch beim rumschauen habe ich nichts gefunden das mir so wirklich weiter geholfen hat.

Mein Programm sucht in einer externen Textdatei nach den Begriffen die ich in ein Editfeld geschriben habe und listet diese mir in der Listbox auf. Das funktioniert auch alles super.
die Ergebnisse sind nach dem Schema:
kategorie; name; autor; ausgeliehen....
angeordnet
nun frage ich mich ob es irgend einen Weg gibt das wenn ich auf ein Suchergebnis in der Listboc klick mir ein Bild angezeigt wird entsprechend der Kategorie. Nehmen wir an das steht CD; ......... dann soll es ein Bild einer CD anzeigen oder Buch;... dann ein Bild eines buches.

Ist sowas irgendwie möglich? Wie müsste der Quellcode aussehen?

Ich würde mich sehr freuen wenn ihr mir helfen könntet.

lg Night

DeddyH 29. Mär 2011 16:29

AW: Listbox, dinge anzeigen bei anklicken
 
Du könntest alles bis zum ersten Semikolon kopieren und nachsehen, was da steht. Dementsprechend kannst Du dann in einem TImage das dazugehörige Bild anzeigen.
Delphi-Quellcode:
temp := Copy(DeinString, 1, Pos(';', DeinString) - 1);
if temp = 'CD' then
  DeinImage.Picture.LoadFromFile(Bildpfad + 'CD.bmp')
else if temp = 'Buch' then
  DeinImage.Picture.LoadFromFile(Bildpfad + 'Buch.bmp');
So in der Art, man könnte das noch eleganter machen, aber so ist es IMHO verständlicher.

Nightangel 29. Mär 2011 16:43

AW: Listbox, dinge anzeigen bei anklicken
 
vielen dank ich werde es sofort ausprobieren wenn der schulserver wieder geht und mich mein projekt auch auf meinen rechner ziehen lässt =)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz