Hallo Delphianer,
ich möchte aus einem dreispaltigen ListView, die Daten, die sich unter dem blauen Markierungsbalken befinden, nach einem Doppelklick auslesen.
Hättest Du einen Tip oder Hinweis für mich, wie ich die drei Einträge z.B. in drei Stringvariablen schreiben kann ?
Mit freundlichen Grüßen
Uwe
Hi,
möglicherweise sieht folgende Prozedur etwas kompliziert aus,
du kannst sie aber „objektorientiert“ einsetzen.
Das heißt z.B. mit unterschiedlicher Spaltenanzahl oder von unterschiedlichen Instanzen des ListView im Projekt.
{****************************************************}
procedure TForm1.ListView1DblClick(Sender: TObject);
{Auslesen von Strings aus TListView mit beliebig vielen Spalten
Ausgelöst durch Ereignis OnDblClick,
Ausgabe des Ergebnisses hier in TMemo
(Memo1 muß im Projekt vorhanden sein)}
var
TempListItem : TListItem;
Counter : Integer;
begin
If Sender is TListView then
begin
TempListItem:=TListView(Sender).ItemFocused;
Memo1.Clear;
If (TempListItemnil) Then
begin
Memo1.Lines.Add(TempListItem.Caption);
For Counter:=0 to (TempListItem.SubItems.Count-1) do Memo1.Lines.Add(TempListItem.SubItems.Strings[Counter]);
end else Memo1.Lines.Add(‚Kein Listenelement selektiert !‘);
end;
end;
{****************************************************}
Gruß
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]