Delphi 3. Библиотека программиста


И последнее замечание…


В листинге16.2 реализована еще одна дополнительная возможность, перед которой я не смог устоять. Объект можно перетащить из сетки и скопировать /переместить его в другую сетку, сбрасывая на нужном корешке. Для этого мне пришлось написать общий обработчик OnMouseDown для всех сеток, а также расширить обработчики OnDragOver и OnDragDrop для компонента PageControl. Кроме того, я добавил флаг CopyDrag, устанавливаемый в том случае, если в начале перетаскивания из любой сетки была нажата клавиша Ctrl.

При перетаскивании из сетки на корешок вкладки основную долю работы выполняет процедура DropGridString. Если во время перетаскивания не была нажата клавиша Ctrl, DropGridStringвыполняет дополнительные действия и превращает обычное копирование в перемещение, убирая выделенный объект из сетки-источника и затем удаляя пустую строку.

?абочая версия программы изображена на рис. 16.2. Это маленькое приложение получилось довольно забавным. Вы можете перетаскивать объекты между вкладками, копировать и перемещать их. Это гораздо веселее, чем сидеть на свадьбе (особенно на своей собственной).

Конец записи (29 марта).

?ис. 16.2. Общие обработчики событий в действии

Факс в конторе Эйса зажужжал. Хелен немедленно вскочила на ноги.

— Эйс, пришел факс, — сказала она. — Поторопись, это должны быть результаты экспертизы.

Брейкпойнт пересек комнату и оторвал листок.

— Посмотрим, кто из нас прав и действительно ли это дело рук Бохакера.

Он застыл на месте, несколько секунд молча разглядывая страницу. Наконец Хелен потеряла терпение.

— Ну, что там написано? — потребовала она. — Это Бохакер, да?

— Видишь ли, не совсем понятно. Такая быстрая экспертиза не всегда дает однозначный ответ, и…

— Дай посмотреть, — сказала Хелен и отняла листок. Быстро пробежав его глазами, она повернулась к своему компаньону.

— Здесь ясно написано — цитирую: «Экспертиза показала практически полное совпадение обоих образцов с погрешностью до 5 процентов, что соответствует погрешности, допустимой при экспертизе такого рода». Это означает, что образцы крови и волос совпали, не так ли?

— В общем, да, — признал Эйс. — Но…

— Значит, это должен быть Мелвин Бохакер, как я и говорила. И где бы он ни был, наверняка рядом с ним находится и Мадам Икс. Остается лишь узнать, где они.

— В Нортон-Сити.

— Что?

— В Нортон-Сити, — повторил Эйс. — Бифф сообщил мне, что Бохакер уехал в Нортон-Сити. Уж можешь мне поверить.

— Но где именно? — спросила она. — Он может находиться в сотне мест.

— Кажется, я знаю, как это выяснить, — сказал Эйс и включил компьютер.




Начало  Назад  Вперед



Книжный магазин