oDD те спс, А еще нужно: Чтоб если НАЖАЛ НА КНОПКУ ТО ДЕЙСТВИЕ СОВЕРШАЕТСЯ БЕскОНЕЧНО ПОКА НЕ НАЖМЕШ ЕЩЕ кнопку. НАПРИМЕР МНЕ НУЖНО ЧТОБ ПРИ НАЖАТИИ НА 0 ВЫСКАКИВАЛИ ЧАСЫ с сЕКУНДАМИ. И чтоб секунды и минуты и часы, всё время обновлялось каждую секунду, пока не нажмёш на 0 опять.
у меня есть
if (getKeyPressed = KE_KEY0) then
begin
Cls2;
Time:=GetCurrentTime;
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_MEDIUM);
SetColor(0, 0, 0); wi:=GetWidth; hi:=GetHeight;
TimeText := 'Время - ' + GetHour(Time);
TimeText := TimeText + ':'+ GetMinute(Time);
TimeText := TimeText + ':'+ GetSecond(Time);
DrawText(TimeText,(wi-GetStringWidth(TimeText))/2, 9 ;
Repaint;
end;
|
Как мне добавить такую вещь???