Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Компонент ListBox и действия с ним

Natalya © (2011-12-25 00:20:00)
Всем привет!

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

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

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

Natalya (2011-12-25 00:53:00) [1]
Спасибо большущее за наводку.
Сделала так:
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;
Всё работает. Еще раз спасибки!

RWolf (2011-12-25 00:35:00) [2]
Написать обработчик события OnKeyDown: если нажата Ctrl+A, вызвать SelectAll, если VK_DELETE — DeleteSelected.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »