Danke für den Beispiel der funktioniert auch.
Nun hatte ich es für meinen Programm abgeändert. Aber irgendwie bekomme ich es nicht
so hin wie ich es möchte.
Hier nur mal ein kleiner Auszug aus dem Code. Dein BeispielCode
setzt denke ich voraus das es neu eingefügt wird oder ? Oder muss ich bei der ListView
Erstellung schon etwas beachten weil ich 7 Columns schon vorher erzeugt habe?
Delphi-Quellcode:
procedure TStatus_Form.Button1Click(Sender: TObject);
var
Data: TMyData;
begin
If RadioGroup1.ItemIndex = 0 then
begin
Haupt_Form.ListView1.ItemFocused.SubItems[1] := 'ok';
// Ab hier versuche ich Dein Beispiel einzubringen.
Try
data := TmyData.Create; // Objekt erzeugen
Except
data.Status_Name := Name_Edit.Text;
data.Status_datum := DateTimePicker1.Date;
End;
// Ich weiss nicht mal ob das funktioniert hat
// Nun möchte ich es in der selektierte Zeile einfügen.
Haupt_Form.ListView1.AddItem('test', Data); // Die Zeile ist sicher falsch ?
end;
close;
end;