Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизМного таймеров Найти похожие ветки
← →
Андре (2002-01-09 17:31) [13]Даже если таймеры одинаковые, попробуйте:
procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
begin
for i:=1 to 50000 do
begin
Label1.Caption:=IntToStr(i);
Label1.Refresh;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var i : integer;
begin
for i:=1 to 50000 do
begin
Label2.Caption:=IntToStr(i);
Label2.Refresh;
end;
end;
Пока первая процедура не завершится, второй таймер не сработает.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c