| BIOACE | Дата: Четверг, 17.11.2011, 20:27 | Сообщение # 1 |
|
BIOACE
Группа: Администратор
Сообщений: 105
Награды: 4
Репутация: 1
Статус: Offline
| Для начала создадим новую форму и бросим на неё: компонент Button (кнопка).
После чего в обработчик кнопки напишем следующий код:
Code
procedure TForm1.Button1Click(Sender: TObject);
var
v: integer;
begin
if v=0 then
begin
v:=1 ;
Button1.Caption:='Стоп';
end
else
begin
Button1.Caption:='Старт';
v:=0;
end;
end;
Это всего лишь пример, как использовать это думайте уже сами ;)
p.s. это первый мой урок, надеюсь было полезно)
Все права на этот урок принадлежат мне... при копирование материала обязательно указывать ссылку на эту статью.
если что то непонятно пишите сдесь (по теме урока).
Вечный майор D~DefenD
|
| |
| |
| BIOACE | Дата: Вторник, 13.03.2012, 10:37 | Сообщение # 2 |
|
BIOACE
Группа: Администратор
Сообщений: 105
Награды: 4
Репутация: 1
Статус: Offline
|
Вечный майор D~DefenD
|
| |
| |
