Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#16

Re: CheckListBox und Memo verwenden

  Alt 30. Jun 2009, 01:08
Übriges, vielleicht wäre ListView eher was für dein Problem.

Für das Beispiel brauchst du ein ListView auf dem Formular:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);

  procedure Hinzu(Text, Zusatztext: String);
  var
    ListItem: TListItem;
  begin
    with ListView1 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Text;
      ListItem.SubItems.Add(Zusatztext);
    end;
  end;

var
  NewCol: TListColumn;
begin
  with ListView1 do //das kann auch manuell im Objektinspektor erstellt werden
  begin
    ViewStyle := vsReport;

    NewCol := Columns.Add;
    NewCol.Caption := 'Text';
    NewCol.Width := 150;
    NewCol := Columns.Add;
    NewCol.Caption := 'Zusatztext';
    NewCol.Width := 400;
  end;

  Hinzu('Blume', 'Blumen blühen');
  Hinzu('Wasser', 'Wasser ist feucht');
  Hinzu('Erde', 'In der Erde wachsen Erdäpfel');
  Hinzu('Sand', 'Sand ist voller Sand');
  Hinzu('Dünger', 'Dünger düngt die Erde');
  Hinzu('Licht', 'Licht spendet Wärme');
  Hinzu('Schatten', 'Im Schatten ist es kühler');
end;
Edit:
Tippfehler korrigiert.
  Mit Zitat antworten Zitat