Home

Page 56
Page 56
background image

Простые шутки 49

Теперь научимся прятать кнопку и всю панель задач. Создайте обработчик
события onclick для кнопки Спрятать картинку и напишите следующее:
procedure
begin

 SW_HIDE);

end;

Здесь опять использована функция

 В качестве второго парамет-

ра указано

 SW_HIDE,

 чтобы спрятать окно. Чтобы показать его снова, нужно

указать параметр

 В качестве первого параметра указан указатель на

картинку. Как видите, с помощью данной функции можно прятать не толь-
ко окна, но и компоненты. Только

 компоненты должны быть оконными

и должны иметь возможность иметь указатель на себя типа

Теперь спрячем всю панель. Для этого создайте обработчик события

 для кнопки Спрятать панель и напишите в нем следующее:

procedure

 TObject);

begin

end;

Здесь используется тот же прием, что и для предыдущей кнопки, только в

качестве первого параметра функции showwindow указан идентификатор
всей панели.

На компакт-диске в директории

 2\Кнопка Пуск2 вы може-

те найти пример этой программы.

На компакт диске в директории \Примеры\Глава 2\ Кнопка Пуск2 вы мо-

жете увидеть цветные версии рисунков этого раздела.

2.3. Контролируем системную палитру

Системная палитра достаточно интересный объект для программиста, кото-
рый хочет написать какую-нибудь шуточную программу. Изменив всего
один системный цвет, изменяется внешний вид всех программ. Попробуем

написать программу, которая будет хаотично менять основные цвета сис-

темной палитры.

Для нашей программы нам понадобится одна кнопка и таймер. На кнопке

 напишите Анимация палитры. Вид формы не имеет значения —

в нашем примере мы делаем упор на изменение палитры, а не на интер-

фейс.

У таймера установите свойство Enabled равным false, чтобы по умолчанию

он был выключен. При нажатии кнопки мы его включим и начнем измене-

ния палитры. Свойство interval у таймера нужно задать большим 5 000


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.