Задержка

@TpakT0p · Регистрация: 02.05.2018

Доброго времени суток. В программе понадобилось выводить разные значения с определённым интервалом. Использовал sleep в надежде на то, что он выведет 1, подождёт секунду и выведет 2 :

Delphi

procedure TForm1.StButtonClick(Sender: TObject);
begin
  StButton.Text := '1';
  sleep(1000);
  StButton.Text := '2';
end;

Однако при нажатии значение не меняется, только через секунду появляется 2. Что я делаю не так и как реализовать описанную задачу? Компонент TTimer, как я понял, в Delphi XE5 отсутствует (или я слепой, не нашёл).

@D1973 · 02.05.2018, 15:20

А так?

Delphi

StButton.Text := '1';
StButton.Update;
sleep(1000);
StButton.Text := '2';

@TpakT0p · 02.05.2018, 16:08 **[ТС]**

А так компилятор ругается
[DCC Error] main.pas(97): E2003 Undeclared identifier: 'Update'

@D1973 · 02.05.2018, 19:13

ну метод Repaint там точно должен быть... т.е. вместо StButton.Update; напишите StButton.Repaint;

@TpakT0p · 02.05.2018, 20:17 **[ТС]**

Repaint есть, компилится, но всё равно не работает

@D1973 · 02.05.2018, 20:54

Сообщение от TpakT0p

всё равно не работает

На базе VCL - работает как надо... Что уж там происходит в FMX - пес его знает...

@krapotkin · 02.05.2018, 22:52

слепой, не нашел

@TpakT0p 0 / 0 / 0 Регистрация: 02.05.2018 Сообщений: 5
	02.05.2018, 16:08 [ТС]	3
	А так компилятор ругается [DCC Error] main.pas(97): E2003 Undeclared identifier: 'Update' 0

@D1973 Модератор 6758 / 4352 / 1869 Регистрация: 21.01.2014 Сообщений: 18,398 Записей в блоге: 3
	02.05.2018, 19:13	4
	ну метод Repaint там точно должен быть... т.е. вместо StButton.Update; напишите StButton.Repaint; 0

@TpakT0p 0 / 0 / 0 Регистрация: 02.05.2018 Сообщений: 5
	02.05.2018, 20:17 [ТС]	5
	Repaint есть, компилится, но всё равно не работает 0

@D1973 Модератор 6758 / 4352 / 1869 Регистрация: 21.01.2014 Сообщений: 18,398 Записей в блоге: 3
	02.05.2018, 20:54	6
	Сообщение от TpakT0p всё равно не работает На базе VCL - работает как надо... Что уж там происходит в FMX - пес его знает... 0

@krapotkin 4836 / 3817 / 1273 Регистрация: 14.04.2014 Сообщений: 17,655 Записей в блоге: 18
	02.05.2018, 22:52	7
	слепой, не нашел 0

Опции темы