Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2018, 03:09   #1
Максим_maks
Пользователь
 
Регистрация: 18.01.2015
Сообщений: 51
По умолчанию Работа с таймером

Всем привет.
Делаю таймер на 5,10,15 сек.
На форму добавил таймер TTimer, в свойствах у него указал:
interval =0

По событию

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

По кнопке:

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Interval := Edit2.Text;
Timer1.Enable:=true;
end;

Не работает (((

Делал по этой статье http://www.beluch.ru/progr/100comp/5_7.htm
Максим_maks вне форума Ответить с цитированием
Старый 13.04.2018, 03:32   #2
Максим_maks
Пользователь
 
Регистрация: 18.01.2015
Сообщений: 51
По умолчанию

Цитата:
Сообщение от Максим_maks Посмотреть сообщение
Всем привет.
Делаю таймер на 5,10,15 сек.
На форму добавил таймер TTimer, в свойствах у него указал:
interval =0

По событию

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

По кнопке:

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Interval := Edit2.Text;
Timer1.Enable:=true;
end;

Не работает (((

Делал по этой статье http://www.beluch.ru/progr/100comp/5_7.htm
Разобрался, но почему работает????

Код:
    if RadioButton1.Checked=True and RadioButton4.Checked=True and RadioButton7.Checked=True then
    begin
       time:=strtoint(edit1.Text);
       label1.Caption:=inttostr(time);
       Timer1.Enabled:=True;
    end;

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var j:tjpegimage;
begin
  if time>0 then
begin
  time:=time-1;
   label1.Caption:=inttostr(time);

  end
else
begin
  timer1.Enabled:=False;
  //Timer1.Interval := Edit2.Text;
         ScreenShot(Image1.Picture.BitMap);
         j:=TJpegImage.Create;
         j.CompressionQuality:=100;
         j.Assign(image1.Picture.Bitmap);
         j.SaveToFile(Edit2.Text);
         Application.MessageBox('Файл создан', 'F10', MB_OK) ;
         j.Destroy;
         //KillTimer(Handle, TIMER_SET_KEY);
    end;
end;
А заработало, пока не поставил interval 1000 и Label1.Caption:=inttostr(time);
Максим_maks вне форума Ответить с цитированием
Старый 13.04.2018, 07:51   #3
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Во-первых в первом Вашем примере
Код:
Timer1.Interval := Edit2.Text;
что уже не правильно, interval ждет int переменную а не string
Во-вторых что такое interval =0 с какой периодичностью должен срабатывать таймер? а я Вам скажу ни с какой!

Даже в вашей статье которую Вы привели черным по белому написано:

Цитата:
Если задать Interval = 0 или Enabled = false, то таймер перестает работать
Вы только копипастом занимаетесь или читать стало трудно?
Я часть той силы, что вечно хочет зла, но вечно совершает благо..

Последний раз редактировалось Stanislav; 13.04.2018 в 07:54.
Stanislav вне форума Ответить с цитированием
Старый 14.04.2018, 22:38   #4
Максим_maks
Пользователь
 
Регистрация: 18.01.2015
Сообщений: 51
По умолчанию

Цитата:
Сообщение от Stanislav Посмотреть сообщение
Во-первых в первом Вашем примере
Код:
Timer1.Interval := Edit2.Text;
что уже не правильно, interval ждет int переменную а не string
Во-вторых что такое interval =0 с какой периодичностью должен срабатывать таймер? а я Вам скажу ни с какой!

Даже в вашей статье которую Вы привели черным по белому написано:



Вы только копипастом занимаетесь или читать стало трудно?
Статью читал, копипаст хорошо, но еще надо уметь применять. Но спасибо на указание ошибки, поправлю у себя.
Максим_maks вне форума Ответить с цитированием
Старый 14.04.2018, 23:06   #5
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Цитата:
копипаст хорошо
в вашем случаи фигово
Цитата:
Статью читал
если бы читали все бы работало
Цитата:
но еще надо уметь применять
надо уметь читать вот и все
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Stanislav вне форума Ответить с цитированием
Старый 14.04.2018, 23:06   #6
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Цитата:
копипаст хорошо
в вашем случаи фигово
Цитата:
Статью читал
если бы читали все бы работало
Цитата:
но еще надо уметь применять
надо уметь читать вот и все
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Stanislav вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с таймером С# JK0 Помощь студентам 1 31.10.2011 16:25
работа с таймером Kazik Помощь студентам 5 04.06.2010 21:07
работа с таймером Андрей.12 Помощь студентам 3 28.03.2010 22:36
Работа с Таймером Иринкаа Компоненты Delphi 6 22.11.2007 21:59