Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Newbie braucht hilfe mit ListView's! (https://www.delphipraxis.net/2784-newbie-braucht-hilfe-mit-listviews.html)

nsamaster 6. Feb 2003 20:39


Newbie braucht hilfe mit ListView's!
 
Es ist mir peinlich das zu sagen, aber ich habe keinen blassen schimmer, wie ich aus einer ListView die makierten Einträge anzeigen lassen kann, bzw. wie ich rausbekomme welche Einträge angeklickt werden.
In der ListView stelle ich Verzeichnisse und Daten dar. Hat jemand einen entsprechenden Code auf lager???

Daniel B 6. Feb 2003 21:16

Re: Newbie braucht hilfe mit ListView's!
 
Hallo,
Zitat:

Zitat von nsamaster
wie ich aus einer ListView die makierten Einträge anzeigen lassen kann

Das muss Dir doch nicht peinlich sein!
Allerdings verwirrt mich diese aussage etwas.
Die Selectierten Einträge bekommt man mit "Selected". In der OH steht auch viel dazu!
Was auch brauchbar ist, ist das Event OnSelectItem. Dies wird ausgeführt wenn man ein Item Markiert. Dann hast Du mit ItemIndex den Index und weisst so wo er sich befindet, bzw. womit Du ihn weiter verarbeiten kannst.

Grüsse, Daniel :hi:

nsamaster 6. Feb 2003 22:16

Genau das sind die Tipps die ich gebraucht habe! Da ich mich mit dieser Komponente überhaupt nicht auskenne, wußte ich auch nicht wo ich anknüpfen mußte. Danke!

nsamaster 7. Feb 2003 22:47

So ein Mißt! Ich hab mich verlesen! Das sind keine ListView's sondern TShellListView. Da gibt es leider kein Ereigniss "OnSelected" oder ähnliches. Hat schon jemand erfahrungen mit dieser Komponente (zu finden, in Delphi6 unter "Beispiele").
Die Eigenschaft "Items", der Komponente "TShellListView", liefert mir eine TListItem zurück, aus der ich aber auch keine Namen der Dateien raus bekomme. Kann mir noch jemand helfen?

Wolff68 19. Apr 2003 22:33

Bei der ShellListView steht der Dateiname in der Eigenschaft Folders[i].PathName (OK. Kommt man nicht gleich drauf)
Probier mal folgendes:
Code:
procedure TMainForm.Button3Click(Sender: TObject);
var
  i : Integer;
  s : String;
begin
  s := '';
  For i := 0 to ShellListView.Items.Count -1 do begin
    IF ShellListView.Items[i].Selected then begin
      s := s + ShellListView.Folders[i].PathName + #10#13;
    end;
  end;
  ShowMessage(s);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:32 Uhr.

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