Hola, sigo con esto es que hago lo siguiente
var
inicio : TDateTime;
Procedure TForm1.Create(Sender : TOject);
var
item : TListItem;
begin
inicio := now;
item := ListView1.Add;
item.Caption := 'PC01';
item.SubItems.Add('Libre');
end;
Procedure TForm1.Timer1Timer(Sender : TOject);
var
item : TListItem;
begin
item.SubItems.Add(FormatDataTime('HH:mm:ss', Now - inicio);
end;
y me sale un error en tiempo de ejecución. Pero si agrego ListView1.Add en el evento OnTimer me da el tiempo en cada segundo
|