Usando un TListBox

[ecfisa]

Hola darkamerico.

No te aconsejo complicarte con semejante código si la tarea que va a desempeñar no lo justifica.

Mira que simple resulta como te sugiere Neftali:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ListBox1 do
  begin
    Items.Add('Item'+IntToStr(Random(100)+1)); // (un item X...)
    Label1.Caption := IntToStr(Items.Count);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    if ItemIndex <> -1 then
    begin
      Items.Delete(ItemIndex);
      Label1.Caption := IntToStr(Items.Count);
    end;
end;

Saludos.

[Neftali [Germán.Estévez]]

Además, ese código, tal y como indica en el encabezado añade soporte para Darg & Drop, cosa que entiendo no te hace falta.
Si necesitaras usarlo de forma intensiva (muchos componentes) tal vez estaría justificado, de otra forma creo que es demasiado.

[darkamerico]

Estamos de acuerdo en que el monto de codigo quizas sea demasiado para esta tarea diminuta que estoy haciendo, pero viendolo en el tiempo, se compensa el esfuerzo de esta solucion, y no estare volviendo a crear otro hilo .

Un abrazo a los dps, gracias por su interes.


Atte,