Форум: "Начинающим";
Текущий архив: 2012.04.15;
Скачать: [xml.tar.bz2];
ВнизКомпонент 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c