حذف نشدن آیتم توی لیست باکس

[parhizkar2000]

من کد زیر رو برای حذف ایتم انتخاب شده توی لیست باکس نوشتم اما کار نمی کنی یعنی وقتی روی یک آیتم کلید DELETE رو می زنم از لیست حذف نمیشه
[code]
procedure Ttppay.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=Chr(VK_DELETE) then
listbox1.DeleteSelected;
end;
[code/]

[Hamid_PaK]

ببین عزیزم با این چی بازم کار نمی کنه ولی باید توجه داشته باشی حتما یکی از ایتم ها سلکت باشن !!!


ListBox1.Items[ListBox1.ItemIndex].Delete

موفق باشید .

[parhizkar2000]

ببین عزیزم با این چی بازم کار نمی کنه ولی باید توجه داشته باشی حتما یکی از ایتم ها سلکت باشن !!!


ListBox1.Items[ListBox1.ItemIndex].Delete

موفق باشید .
کد بالا توی دلفی 6 اصلا قابل اجرا نیست
توی onkeyDown باید خط زیر رو اضافه کنی


ListBox1.DelteSelected

[m-khorsandi]

درود

نمیدونم مشکل حل شده یا نه ولی کد رو میذارم اینجا:



procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key= VK_DELETE then
listbox1.Items.Delete(listbox1.ItemIndex);
end;