Валерий Борисок - Delphi. Трюки и эффекты
- Название:Delphi. Трюки и эффекты
- Автор:
- Жанр:
- Издательство:неизвестно
- Год:неизвестен
- ISBN:нет данных
- Рейтинг:
- Избранное:Добавить в избранное
-
Отзывы:
-
Ваша оценка:
Валерий Борисок - Delphi. Трюки и эффекты краткое содержание
«Delphi. Трюки и эффекты», как и все издания данной серии, адресована тем, кто хочет научиться делать с помощью уже знакомых программных пакетов новые, интересные вещи. В первой части книги многое говорится о среде разработки Delphi (самых последних версий) и программировании на языке Object Pascal. Благодаря этому издание подходит и новичкам, и начинающим программистам. Вторая (основная) часть книги описывает удивительные возможности, скрытые в языке, и на примерах учит читателя программистским фокусам – от «мышек-невидимок» и «непослушных окон» до воспроизведения МРЗ и управления офисными программами Word и Excel из приложений Delphi. Купив эту книгу, вы пройдете непростой путь к вершинам программистского мастерства весело и интересно.
Delphi. Трюки и эффекты - читать онлайн бесплатно ознакомительный отрывок
Интервал:
Закладка:
Пусть нужно, чтобы формы приложения запоминали свое расположение, размер, введенные и выбранные в элементах управления данные. В таком случае необходимость в сотый раз перетаскивать часто открываемую форму на удобное место не будет раздражать пользователя. Если же форма требует постоянного ввода похожих данных, то восстановление выбранных и введенных в прошлый раз значений будет только плюсом.
Теперь о деле: есть форма для фильтрации запроса к базе данных, она показанна на рис. 7.7.
Рис. 7.7. Форма фильтра для поиска товара
Содержимое формы не суть важно, а важно то, что при нажатии кнопки ОК положение, размер формы, а также данные, введенные пользователем, будут сохранены в реестре при помощи процедуры SaveFilter (листинг 7.14).
Листинг 7.14.
Сохранение параметров формы в реестре
procedure TForm1.OKClick(Sender: TObject);
begin
SaveFilter();
//Выполняем требуемые действия…
end;
//Процедура сохраняет параметры в реестр
procedure TForm1.SaveFilter();
var
reg: TRegistry; //По умолчанию: RootKey = HKEY_CURRENT_USER
strShops: String;
i: Integer;
begin
reg := TRegistry.Create();
try
//Открываем или создаем раздел, в котором будут
//сохранены параметры формы
reg.OpenKey(strBaseKey + \'\Form1\', True);
//Сохранение параметров
//1. Размер и положение формы
reg.WriteInteger(\'Width\', Width);
reg.WriteInteger(\'Height\', Height);
reg.WriteInteger(\'Top\', Top);
reg.WriteInteger(\'Left\', Left);
//2. Последнее введенное наименование
reg.WriteString(\'txtName.Text\', txtName.Text);
//3. Выбранные магазины
strShops := \'\
for i := 0 to lstShops.Count–1 do
if lstShops.Selected[i] then
strShops := strShops + lstShops.Items[i] + \',\
reg.WriteString(\'lstShops.Selection\', strShops);
//4. Применение сортировки
reg.WriteBool(\'chkSort.Checked\', chkSort.Checked);
except
on ERegistryException do
MessageBox(Handle, \'Ошибка при сохранении фильтра\',
\'Поиск товара\', MB_ICONEXCLAMATION)
;
end;
reg.CloseKey();
reg.Free();
end;
В рассматриваемом примере константа strBaseKey, определяющая положение раздела для сохранения настроек, задана следующим образом:
const
strBasekey = \'Software\Delphi. Трюки и эффекты\Настройки программы\
Открыв Редактор реестра, можно удостовериться в правильном сохранении требуемых нам параметров (рис. 7.8).
Рис. 7.8. Параметры формы, записанные в реестр
Считывание параметров формы можно производить, например, при ее создании. Тогда в обработчике события Create достаточно поместить вызов процедуры LoadFilter (листинг 7.15).
Листинг 7.15.
Загрузка параметров формы из реестра
procedure TForm1.FormCreate(Sender: TObject);
begin
LoadFilter();
end;
//Процедура загружает параметры из реестра
procedure TForm1.LoadFilter();
var
reg: TRegistry; //По умолчанию: RootKey = HKEY_CURRENT_USER
strShops: String;
shopStart, shopEnd: Integer;
begin
reg := TRegistry.Create();
try
//Открываем раздел, в котором сохранены параметры формы
reg.OpenKey(strBaseKey + \'\Form1\', False);
//Загрузка сохраненных ранее параметров
//1. Размер и положение формы
Width := reg.ReadInteger(\'Width\');
Height := reg.ReadInteger(\'Height\');
Top := reg.ReadInteger(\'Top\');
Left := reg.ReadInteger(\'Left\');
//2. Последнее введенное наименование
txtName.Text := reg.ReadString(\'txtName.Text\');
//3. Выбранные в прошлый раз магазины
strShops := reg.ReadString(\'lstShops.Selection\');
shopStart := 1;
for shopEnd := 0 to Length(strShops) do
if strShops[shopEnd] = \',\' then
begin
//Получение имени магазина и выделение его в списке
SelectShop(Copy(strShops, shopStart,
shopEnd – shopStart));
shopStart := shopEnd + 1;
end;
//4. Применение сортировки
chkSort.Checked := reg.ReadBool(\'chkSort.Checked\');
except
on ERegistryException do
//Игнорируем ошибки (просто не
//будут зачитаны данные из реестра,
//например, при первом запуске программы)
;
end;
reg.CloseKey();
reg.Free();
end;
//Процедура выделяет магазин с заданным названием
//(если он есть в списке)
procedure TForm1.SelectShop(strShopName: String);
var
i: Integer;
begin
for i := 0 to lstShops.Count–1 do
if lstShops.Items[i] = strShopName then
begin
lstShops.Selected[i] := True;
Exit;
end;
end;
Некоторая сложность алгоритма загрузки списка выбранных магазинов обусловлена желанием добиться того, чтобы при изменении списка не выделялись ранее не выбранные магазины (иначе можно было бы просто сохранять индексы).
Примечание
Чтобы при первом запуске процедуры LoadFilter не появлялись сообщения об исключениях (при работе в отладчике Delphi), снимите флажок Stop on Delphi Exceptions на вкладке Language Exceptions диалогового окна Debugger Options (меню Tools → Debugger Options).
Автозапуск программ
Так уж повелось, что, рассматривая работу с реестром, редко удается удержаться от рассказа, как можно организовать автоматический запуск приложений, минуя пресловутое меню Автозагрузка.Коснемся этой темы и мы: рассмотрим наиболее простые способы автоматического запуска не сервисных (!) программ.
Итак, в ветвях реестра HKEY_CURRENT_USER и HKEY_LOCAL_MACHINE находятся разделы Software\Microsoft\Windows\CurrentVersion\Runи Software\ Microsof t\Windows\CurrentVersion\RunOnce. В первом (Run) сохраняются пути приложений, запускаемых при каждой загрузке Windows. В разделе же RunOnce обычно регистрируются приложения типа инсталляторов, которые запускаются при первой с момента регистрации перезагрузке Windows, но до запуска программы Проводник.При запуске приложения, зарегистрированного в ключе RunOnce, соответствующая запись из этого раздела автоматически удаляется.
От выбора ветви реестра (HKEY_LOCAL_MACHINE ИЛИ HKEY_CURRENT_USER) зависит, в сеансе всех ли пользователей будет запускаться приложение.
Рассмотрим создание простейшей программы, способной определить, запускается ли она автоматически, а если запускается, то каким образом. Программа также будет уметь создавать и удалять параметры в нужных разделах реестра для задания нужного режима запуска.
Пусть на форме приложения расположены три переключателя (рис. 7.9). Процедура, приведенная в листинге 7.16, устанавливает состояния переключателей в зависимости от того, в каком разделе ветви HKEY_LOCAL_MACHINE расположен параметр с именем, совпадающим с именем программы (это условность, котора я нужна для работы нашего примера).
Рис. 7.9. Форма после определения варианта режима запуска приложения
Листинг 7.16.
Определение режима запуска приложения
procedure TForm1.GetRunMode();
var
reg: TRegistry;
begin
reg := TRegistry.Create();
reg.RootKey := HKEY_LOCAL_MACHINE;
//Определение, как запускается программа (по наличию значений
Интервал:
Закладка:
