Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
29. Mai 2004
procedure TForm1.ListView1Click(Sender: TObject);
var
s: String;
begin
if Listview1.Items.Count > 0 then
begin
s := Listview1.ItemFocused.Caption;
ShowMessage(s);
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
29. Mai 2004
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;