¿Como buscar y Eliminar en Un ListBox?

[ecfisa]

Hola.

Empezado por Esquivel

Y si yo quisiera borrar un elemento seleccionado de la listbox.

Como sería el codigo.

Delphi usando VCL:

Código Delphi [-]
...
begin
  if ListBox1.ItemIndex <> -1 then
    ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

Delphi usando API de Windows:

Código Delphi [-]
...
begin
  if SendMessage(ListBox1.Handle,LB_GETCURSEL,0,0) <> -1 then
    SendMessage(ListBox1.Handle, LB_DELETESTRING,
                SendMessage(ListBox1.Handle,LB_GETCURSEL,0,0), 0);
end;

Saludos