Мы не устаем напоминать о пользе клавишных комбинаций быстрого вызова. Несомненно, многие операции с клавиатуры выполняются быстрее, чем мышью. Мы составили список наиболее полезных комбинаций клавиш.

---

CTRL ESC: Выводит на экран меню Start (если на клавиатуре нет клавиши с логотипом Windows).

ALT ESC, ALT SHIFT ESC: Циклическое переключение между окнами всех открытых программ в обоих направлениях. Удерживая нажатыми клавиши ALT или ALT SHIFT, нажимайте ESC необходимое число раз.

ALT TAB: Циклическое переключение между пиктограммами окон открытых программ для выбора какой-то из них. Удерживая клавишу ALT, нажимайте TAB для перехода от одной программы к другой. Чтобы активизировать нужную программу, следует отпустить обе клавиши.

CTRL F6 или CTRL SHIFT F6: Циклическое переключение в обоих направлениях между окнами всех открытых документов одной программы, например Microsoft Word.

SHIFT DEL: Действительно удаляет файлы, а не просто помещает их в Корзину.

SHIFT и любая клавиша со стрелкой: Выделение нескольких последовательных элементов в списке или файлов в папке.

CTRL A: Выделение всех объектов.

Чрезмерное число пиктограмм на «рабочем столе» не только отвлекает внимание, но может снизить производительность машины.

---

«Мастер» очистки «рабочего стола» Desktop Cleanup - удобный инструмент, который поможет переместить неиспользуемые пиктограммы в папку и избавит от необходимости делать это вручную.

По умолчанию операционная система предлагает запускать «мастера» очистки через каждые 60 дней. Но можно обратиться к нему в любое время, щелкнув правой клавишей мыши на «рабочем столе» и выбрав из меню пункт Properties. Выбрав закладку Desktop, вы увидите кнопку Customize Desktop.

Иногда избыток пиктограмм затрудняет поиск нужных объектов. Поэтому полезно провести чистку меню, в частности, удалить ненужные пиктограммы. Чистка и упорядочение «рабочего стола» - общепринятая практика, но многие пользователи никогда не удаляют лишние пиктограммы и не приводят в порядок меню Start.

---

Возьмем, к примеру, файлы Read me. Откройте меню Start, перейдите в раздел All Programs и загляните в папку AOL Instant Messenger. Подумайте, действительно ли вам нужен ярлык для лицензионного соглашения?

Если нет, щелкните на нем правой клавишей мыши и выберите из меню пункт . Тоже самое можно сделать со всеми папками и файлами, к которым вы через это меню не обращаетесь.

При желании можно изменить порядок следования элементов в меню Start: перемещение пиктограмм и папок и даже перенос их в подменю выполняются с помощью мыши.

Чтобы расположить элементы в алфавитном порядке, нужно щелкнуть на меню правой клавишей мыши и выбрать пункт Sort by Name.

В Windows XP можно поместить пиктограммы на первый уровень меню Start (в верхней левой части), щелкнув правой клавишей мыши или просто переместив их туда мышью.

Эту операцию может выполнить пользователь, зарегистрированный с правами Administrator.

---

Следует запустить программу Regedit и перейти к разделу HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor. После щелчка правой клавишей мыши на параметре CompletionChar DWORD выберите из меню пункт .

Измените значение на 9. После перезагрузки проведите эксперимент с командной строкой. Введите команду cd, затем первый символ нужного вам каталога и нажмите клавишу TAB.

В строке появится первый каталог, начинающийся с этой буквы. Продолжайте нажимать на TAB, чтобы увидеть в строке поочередно все папки, названия которых начинаются с данной буквы.

Этот прием применим к папкам, файлам и различным командам, таким, как rd и copy.

Меню Start, приведенное в соответствие с вашими личными привычками, немного, но заметно облегчает работу.

---

Сначала выберите стандартное меню XP или классическое меню, напоминающее меню Start прежних версий Windows: щелкнув правой клавишей мыши на Панели задач, следует выбрать пункт Properties, затем закладку Start menu, после этого пункт Start menu или Classic Start menu.

Выбрав любое из этих меню, продолжайте работу и, щелкнув на кнопке Customize, поэкспериментируйте со всеми непонятными параметрами. Кроме того, познакомьтесь с рекомендациями по обустройству меню Start, приведенными в разделе Навигация по Windows.

Чтобы сделать панель задач Windows более полезной, стоит дополнить ее инструментальными линейками.

---

Щелкнув правой клавишей мыши на Панели задач и выбрав пункт Toolbars, вы увидите меню с несколькими имеющимися в ОС панелями инструментов, в том числе Address, Desktop («рабочий стол») и Quick Launch («быстрый запуск»).

Но, вероятно, самая интересная функция — New Tollbar (создать панель инструментов), с помощью которой можно построить инструментальную линейку для быстрого доступа к любой папке, файлу или URL. Помимо других преимуществ, персональная панель инструментов обеспечивает мгновенный доступ к группе файлов.

Например, в ходе работы над долгосрочным проектом вы хотите обращаться ко всем файлам и подпапкам в каталоге проекта одним щелчком мыши.

В процессе первой инсталляции Windows XP вы не увидите на «рабочем столе» пиктограммы My Computer, My Documents, Network Places и Internet Explorer.

---

Чтобы добавить (или впоследствии удалить) любые из них, следует щелкнуть правой клавишей мыши на свободном пространстве «рабочего стола», выбрать из меню пункт Properties, закладку Desktop, а затем щелкнуть на кнопке Customize Desktop.

На экране появятся четыре флажка, которые можно «включить» или «выключить», чтобы добавить или удалить пиктограммы с «рабочего стола», а также варианты для изменения вида каждой пиктограммы.

Большинство «пузырьковых» подсказок, привязанных к области сообщений на Панели задач, практически бесполезны или вовсе не нужны опытным пользователям, они просто отвлекают внимание.

---

Чтобы отключить подсказки, нужно запустить программу редактирования Реестра и перейти к разделу HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced. (При редактировании Реестра всегда нужно быть предельно осторожным. Любые ошибки могут привести к проблемам в системе и потере данных.)

Щелкнув правой клавишей мыши на правой панели, следует сформировать новый элемент типа DWORD и назвать его EnableBalloonTips. Затем дважды щелкнуть на новом элементе и присвоить ему значение 0 (ноль). После этого следует закрыть редактор Реестра и перезапустить Windows.

Данный метод отключает все «пузырьковые» подсказки, поэтому, возможно, вам придется изменить и некоторые другие параметры. Например, если установлен режим Automatic для оповещения о загрузке любых «заплат», то явных сообщений о важных обновлениях не будет. Чтобы исправить положение, следует изменить параметры Automatic или загружать файлы вручную.

С помощью этой процедуры можно создать эмуляцию нажатия клавиши F5 на рабочем столе (Desktop)

---

Для работы процедуры требуется подключить (поместить в раздел uses) следующие модули: Messages, Windows.

Код

procedure RefreshDesktop;
var h : THandle;
begin
h := FindWindow('ProgMan', nil);
h := GetWindow(h, GW_CHILD);
PostMessage(h, WM_KEYDOWN, VK_F5, 0);
end;

В случае нажатия пользователем клавиши или изменении текущего элемента компонента ComboBox, вы обратите внимание на досадную задержку, возникающую при генерации события On.

---

Так как "работа кипит", я хотел бы отреагировать на изменение ItemIndex несколько позднее, например, 100 миллисекунд спустя. Вот что у меня получилось. На простой форме располагаем компоненты ComboBox и Label. Необходимым дополнением является вызов Application.ProcessMessages, позволяющий избежать замедления работы PC, когда очередь сообщений для формы пуста.

Код

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,

StdCtrls;

const

// Просто некоторая константа сообщения
PM_COMBO = WM_USER + 8001;

// 500 миллисекунд
CWantedDelay = 500;

type

TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
procedure ComboBox1(Sender: TObject);
private
procedure PMCombo(var message : TMessage); message PM_COMBO;
public
end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1(Sender: TObject);
begin

PostMessage(Handle, PM_COMBO, 0, 0);
end;

procedure TForm1.PMCombo(var message : TMessage);
const

InProc : BOOLEAN = FALSE;
StartTick : LONGINT = 0;
begin

if InProc then begin
// Обновляем стартовое время задержки
StartTick := GetTickCount;

end else begin
// Организация цикла
InProc := TRUE;

// Инициализация стартового времени
StartTick := GetTickCount;

// Ожидаем истечения стартового времени.
// Пока стартовое время не исчерпалось, позволяем операционной системе обрабатывать сообщения
while GetTickCount - StartTick < CWantedDelay do Application.ProcessMessages;

// Иллюстративное приращение счетчика, задающее некоторую реальную работу обработчику события On
Label1.Caption := IntToStr ( StrToIntDef ( Label1.Caption, 0 ) + 1);

// Завершение цикла
InProc := FALSE;
end;
end;

end.

Каким способом можно производить поиск подходящих величин в момент ввода? Табличный курсор (визуально) должен перемещаться к наиболее подходящему значению при добавлении пользователем новых символов водимой величины.

---

Для поиска величины таблица держится открытой. Индекс должен, естественно, принадлежать полю, используемому элементом управления EditBox. В случае изменения содержимого EditBox, новое значение используется для вызова стандартной функции FindNearest таблицы TTable. Возвращаемая величина снова присваивается свойcтву Text элемента EditBox.

Я привел лишь общее решение задачи. Фактически во время изменения значения я включал таймер на период 1/3 секунды и в обработчике события OnTimer проводил операцию поиска (с выключением таймера). Это позволяло пользователю набирать без задержки нужный текст без необходимости производить поиск в расчете на вновь введенный символ (поиск проводился только при возникновении задержки в 1/3 секунды).

Вам также может понадобиться специальный обработчик нажатия клавиши backspace или добавления символа в любое место строки.

Вместо возвращения результатов элементу EditBox (который перезаписывает введенное пользователем значение), вы можете передавать результаты другому элементу управления, например компоненту ListBox. Вы также можете отобразить несколько наиболее подходящих значений, к примеру так:

Код

procedure Edit1On(...);
var i:integer;
begin
if not updating then exit; {сделайте обновление где-нибудь еще - например при срабатывании таймера}
updating:= false;
Table1.FindNearest([Edit1.text]);
ListBox1.clear;
i:= 0;
while (i < 5) and (not (table1.eof)) do

begin
listbox.items.add(Table1.fields[0].asString);
inc(i);
table1.next;
end;
listbox1.itemindex:= 0;
end;