Скачать: CL | DM;

Компонент ListBox и действия с ним   Найти похожие ветки 

← →
Natalya   (2011-12-25 00:20) [0]

Всем привет!

Интересуют такие вопросы:
1. Как в ListBox можно сделать выбор всех строк при нажатии Ctrl+A, как это есть во всех стандартных программах?
2. Как в том же ListBox отрабатывать нажатие клавиши Del на клавиатуре, т.е. удалять выбранные строки?

Использую Delphi 2009.

Заранее спасибо!

---

← →
RWolf ©   (2011-12-25 00:35) [1]

Написать обработчик события OnKeyDown: если нажата Ctrl+A, вызвать SelectAll, если VK_DELETE — DeleteSelected.

---

← →
Natalya   (2011-12-25 00:53) [2]

Спасибо большущее за наводку.
Сделала так:
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
var i:integer;
begin
// key Delete
if (Key=$2E) then
for i := ListBox1.Items.Count - 1 downto 0 do
if ListBox1.Selected[i] then ListBox1.Items.Delete(i);
// Ctrl+A
if (GetKeyState(VK_CONTROL) < 0) and (GetKeyState(Ord("A")) < 0) then
ListBox1.SelectAll;
end;
Всё работает. Еще раз спасибки!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c