IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Задержка
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Есть sleep(); но с ним программа как бы зависает. Я эту процедуру в цикле использую. Есть что-либо подобное sleep'a? Или как-то по другому надо ее использовать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


procedure TForm1.MFileMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var i:integer;
begin
form1.Canvas.Pen.Color:=clred;
for i:=0 to 99 do
begin;
sleep(1);
form1.Canvas.MoveTo(50,i+50);
form1.Canvas.LineTo(100,i+50);
end;
end;

procedure TFile.CMMouseLeave(var msg: TMessage);
var i:integer;
begin
inherited;
form1.Canvas.Pen.Color:=clBtnFace;
for i:=99 downto 0 do
begin;
sleep(1);
form1.Canvas.MoveTo(50,i+50);
form1.Canvas.LineTo(100,i+50);
end;
end;

Две процедуры: одна при наведении, другая при отведении... Куда этот sleep поставить... я с TThread не понял smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.04.2024 18:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name