::ГЛАВНАЯ::

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

::Система::

::Статьи::

::Форум::

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

::Ссылки::

::Поиск::

 

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

procedure TForm1.Otklbuttonklick(Sender: TObject);
begin
Enablewindow(StartBtnWnd, false);
end;

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

procedure TForm1.VklbuttonCklick(Sender: TObject);
begin
EnableWindow(StartBtnWnd, true)
end;
 

Все играйтесь на здоровье!!

[Назад]

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

::Download::

::Обои::

::Хумор::

::Опросы:: 

 

 

 

 

Copyright © 2004 WIN_KILLER.

All rights reserved.

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