TLiseView frage...

[Martin W]

Hallo,

ich hab ne Frage, die die meisten wahrscheinlich recht einfach beantworten können, denn aus der Hilfe werd ich, ganz ehrlich gesagt nicht so richtig schlau. Suchfunktion hier hab ich auch ohne passende Ergebnisse gefunden zu haben benutzt...

ALso meine Frage:

Ich habe 6 Strings (s1, s2, s3, s4, s5 uns s6). Und eine TListView komponente mit 3 Spalten. Jetzt möchte ich die ersten 3 Strings (s1, s und s3) in die erste Zeile (je String eine Spalte), und die restlichen 3 strings (s3, s4, s5) in di 2te Zeile (auch wieder: jeder String in eine extra Zeile) bringen...

sry, aber ich kapier das echt net..

Gruß
Martin W.

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem: TlistItem;
begin
  NewItem := Listview1.Items.Add;
  NewItem.Caption := '1,1';
  NewItem.SubItems.Add('1,2');
  NewItem.SubItems.Add('1,3');

  NewItem := Listview1.Items.Add;
  NewItem.Caption := '2,1';
  NewItem.SubItems.Add('2,2');
  NewItem.SubItems.Add('2,3');
end;

[Martin W]

Erst einmal danke für die super schnelle Antwort ;-)

Aber ich hab noch eine Frage. Ein User klickt irgnendeine Zeile im der ListViewkomponente an. Wie erfahre ich jetzt um welche Zeile es sich handelt?!? Oder noch besser gefragt, wie erfahre ich, was in der ersten Spalte der angeklickten Zeile steht???

Antwort wäre nett..


Gruß
Martin W.

[Luckie]

Delphi-Quellcode:

procedure TForm1.ListView1Click(Sender: TObject);
var
  s: String;
begin
  if Listview1.Items.Count > 0 then
  begin
    s := Listview1.ItemFocused.Caption;
    ShowMessage(s);
  end;
end;

Kleiner Tipp: Einfach ml in der Hilfe kucken und sich die verschiedenen Eigenschaften und Methoden ankucken. Aber meist reicht schon sich anzukucken, was einem die Code-Vervollständigung anbietet.

BTW: Ich habe es bis eben auch nicht gewußt.

[Martin W]

Hey, danke für die schnellen Antworten ;-) Hab selber lang rumprobiert aber hab net so richtig hinbekommen...