::ГЛАВНАЯ::

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

::Система::

::Статьи::

::Форум::

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

::Ссылки::

::Поиск::

 

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

 

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

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::

::Обои::

::Хумор::

::Опросы:: 

 

 

 

 

Copyright © 2004 WIN_KILLER.

All rights reserved.

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