|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
при нажатии на кнопку запускаем бесконечный цикл:
Код:
procedure Sleep(dwMilliseconds: DWORD); var SaveTickCount: Cardinal; Msg: TMsg; begin SaveTickCount:=GetTickCount; repeat if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin TranslateMessage(Msg); DispatchMessage(Msg); end; until GetTickCount-SaveTickCount>=dwMilliseconds; end; procedure TForm1.Button1Click(Sender: TObject); begin Tag:=0; while Tag>=0 do begin Label1.Caption:=IntToStr(Tag); Tag:=Tag+1; Sleep(100); end; end; при нажатии любой клавиши цикл останавливается: Код:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Tag:=-1; end; скачать целиком: http://data.cod.ru/99641 Пишу программы за еду. __________________ |