|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.04.2008, 19:37 | #1 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
Как зделать авто выполнение
вот код
MessageBox(0,'666','666',16); \\ну не обязательно этот конешна ну чтоб любой) как зделать чтоб он выполнялся через каждые 10 сек?.. |
27.04.2008, 19:40 | #2 |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
1) таймер
2) Код:
Карп преодолевший водопад становится драконом.
|
27.04.2008, 19:49 | #3 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
private a:boolean;..... \\это чё?
var b:boolean; begin b:=true; while b=true do begin MessageBox(0,'666','666',16); sleep(99999); \\это чё? if a=true then break; end; end; |
27.04.2008, 19:50 | #4 |
Форумчанин Подтвердите свой е-майл
Регистрация: 27.04.2008
Сообщений: 179
|
Или компонентом TTimer.
Код procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled := true; Timer1.Interval := 10000 ; end; procedure TForm1.Timer1Timer(Sender: TObject); begin MessageBox(0,'666','666',16); end; // стоп procedure TForm1.StopClick(Sender: TObject); begin Timer1.Enabled := false; end;
www.programmer.uaforums.net - Український форум програмістів.
www.satellite.ipsys.net - Український форум супутникового телебачення. |
27.04.2008, 19:52 | #5 | |
Форумчанин
Регистрация: 29.03.2008
Сообщений: 300
|
Для выхода из цикла, иначе прога встанет в бесконечном цикле, где нибудь, когда нужно остановить "авто выполнение" присваиваешь ей true и всё...
Цитата:
Карп преодолевший водопад становится драконом.
|
|
27.04.2008, 21:01 | #6 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
Спасибо...Всё работает)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Авто удаление программы | DartMrakkk | Win Api | 14 | 11.06.2008 02:13 |
Авто-Прокрутка в Memo | eks-s | Общие вопросы Delphi | 2 | 18.04.2008 01:52 |
НДФЛ+продажа авто | Elm0 | Свободное общение | 0 | 05.04.2008 17:07 |
Авто-фильтр, Нужна помощь | jungo | Microsoft Office Excel | 2 | 23.03.2008 11:17 |
Создание авто- загрузочной проги | Gaist | Общие вопросы Delphi | 3 | 13.06.2007 13:09 |