Полный контроль над кнопкой "Пуск"

Xakep, номер #037, стр. 037-069-3

Я тебя не вижу

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

procedure TForm1.Button4Click(Sender: TObject);

begin

ShowWindow(StartBtnBmp, SW_HIDE);

end;

Здесь я использую функцию ShowWindow. У нее есть два параметра:

1. Идентификатор окна.

2. Команда, которую надо послать окну.

Если в качестве команды поставить SW_HIDE, то окно с указанным идентификатором будет спрятано. Чтобы показать его снова, нужно поставить команду SW_SHOW.

Теперь спрячем всю панель. Для этого создай обработчик события OnClick для "Спрятать панель" и напиши здесь следующее:

procedure TForm1.Button5Click(Sender: TObject);

begin

ShowWindow(StartBtnWnd, SW_HIDE);

end;

Здесь используется тот же код, что и для предыдущей кнопки, только в качестве первого параметра функции ShowWindow я указываю идентификатор всей панели.

Итог

Я думаю, что теперь твой кнопарь "Пуск" превратится во что-то более стоящее и засветится разными цветами радуги. Ты можешь даже создать какую-нибудь анимацию на кнопке, если поставишь на форму таймер и по его событию будешь подсовывать различные картинки на пимпу "Пуск". Теперь все в твоих руках.

Как всегда, исходники примера можно найти на моем сайте http://www.cydsoft.com/vr-online/ через несколько дней после выхода этого номера в свет.

P.S. У меня к тебе просьба на сто баксов :). Не пиши мне большие письма. После появления рубрики кодинг меня каждый день валят вопросами. Я не в состоянии всем рассказывать то, о чем пишут книги. Я могу что-то подсказать, где-то помочь, но не больше. А просьбы типа помоги написать прогу вообще нереальны. Я отвечаю только на те вопросы, где ответ займет несколько строчек. Целые лекции по мылу я разводить не могу. Я бы с удовольствием помог всем, но это НЕВОЗМОЖНО. Вас слишком много, а я один :(((. Поэтому лучше разбей свой вопрос на несколько маленьких и спрашивай постепенно, а не все сразу.