WIN-KILLER.narod.ru
Сайт посвященный программированию в среде DELPHI
Контролируем кнопку пуск
В обработчике кнопки изменить картинку напишем следующее:
Procedure
TForm1.IzmenImageClick(sender: TObject);
begin
SendMessage(StartBtnBmp, BM_SetImage, 0, Image1.Picture.Bitmap.Handle);
end;
Здесь использована WInApi функция SendMessage, которая посылает системное сообщение. У этой функции есть четыре параметра:
Теперь создадим обработчики событий для кнопок включить и выключить.
Кнопка выключить:
Copyright © 2004 WIN_KILLER.
All rights reserved.