::ГЛАВНАЯ::

::Простые Шутки::

::Система::

::Статьи::

::Форум::

::Гостевая книга::

::Ссылки::

::Поиск::

  Подписка на рассылку новостей

Your E-mail:

WIN-KILLER.narod.ru

Сайт посвященный программированию в среде DELPHI

Почему здесь обязана быть ваша реклама?

 

Контролируем кнопку пуск

 

В обработчике кнопки изменить картинку напишем следующее:

Procedure TForm1.IzmenImageClick(sender: TObject);
begin
SendMessage(StartBtnBmp, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);
end;

 Здесь использована WInApi функция SendMessage, которая посылает системное  сообщение. У этой функции есть четыре параметра:

  1. 1. Окно которому посылается сообщение,- мы указали идентификатор окна-кнопки пуск в переменной StarBtnBmp.
  2. 2. Тип сообщения- указано BM-SetImage, что заставит окно изменить картинку
  3. 3.Третий параметр сообщения- он равен нулю.
  4. 4. Четвертый параметр сообщения- указатель на картинку, которую надо поставить.

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

Кнопка выключить:

[Назад] [Дальше]

::Компоненты::

::Download::

::Обои::

::Хумор::

::Опросы:: 

 
  Rambler's Top100
 
 

Copyright © 2004 WIN_KILLER.

All rights reserved.

Используются технологии uCoz