Hola.
Cita:
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