[Xcopy]

Вообщем я хочю сделать такую тему: есть 3 lable, visible у них false, мне необходимо сделать так чтобы свойство visible у них стало true, но только не сразу, а поочереди! как бы 1 label появляется за другим (скажем через 2 секунды). Я прочел что есть такая тема как sleep пишу:
label1.visible:=true;
sleep(20);
label2.visible:=true;
sleep(20);
label3.visible:=true;
Я думал что появится первая натпись, через 2 сек вторая и еще через 2 третяя... но нифига нажимаю на кнопку и через некоторое время появляются срузу 3 label'a... что мне сделать? как решить проблемму? может мне использовать не sleep помогите плиз!

[Alexo]

Перед Sleep попробуй

Код:

Application.ProcessMessages

[M.A.D.M.A.N.]

Код:

label1.show;
self.update;
sleep(2000);
label2.show;
self.update;
.....

[hkdkest]

попробуй

Код:

Delay

[Xcopy]

Спасибо большое, сделал как M.A.D.M.A.N. сказал, работает!
Нехочу тупо копировать неразобравшись. Что такое sleep(2000) я понимаю, а что такое self.update;???

[KOOL]

Self.Update-обновить(перерисовать) форму. В обычных случаях не обязательно, но в циклах, sleep'ах и т.п. вещь незаменимая. Только замедлить выполнение циклов может. Сильно.

[ApplicatiOn]

[Error] Unit1.pas(116): Undeclared identifier: 'self'

решил попробовать... ужас...

[Alexo]

Form1.Update

[Xcopy]

Вообщем как мне подсказали, так я и сделал... все в принцапе работает, строки появляются одна за другой!

label1.show;
self.update;
sleep(2000);
label2.show;
self.update;
.....

Но тут такое дело я хотел чтобы строки еще и меняли свой цвет, например появляется строка и мигает разным цветом, и в это же время другая, и мигает, и т.д.... но вот проблема! видимо sleep приостанавливает всю прогу и пока все строки непоявяться цвет миняться небудет(потому что небудет работать таймер с помощью которого я реализовал смену цвета). как мне быть?

[ApplicatiOn]

создаешь timer

пишешь:

Код:

var
global: integer=0; {можно byte}

...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0: label1.show;
1: self.update;
2: label2.show;
3: self.update;
{сколько угодно, пока не будет переполнения типа))))}
end;
global := global+1
end
end;

[Xcopy]

и что типо типо если я так напишу то sleep 2 таймер незатронет?

[ApplicatiOn]

зачем тебе sleep??

[ApplicatiOn]

кстати лучше так будет:

Код:

var
global: integer=0; {можно byte}

...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0: 
begin
label1.show;
self.update;
end;
1: 
begin
label2.show;
self.update;
end;
{сколько угодно, пока не будет переполнения типа))))}
end;
global := global+1
end
end;

а еще лучше присвоить каждому tag и обрабатывать (пардон, не в цикле а в таймере)

[Xcopy]

я незнаю понял ли ты меня... дело в том что есть несколько десятков label(ов) изначально их невидно, и мне нужно релизовать появление их по очереди... это я сделал, с помощью sleep и все было бы хорошо еслибы во время появления label(ов) мне недано было чтобы они динамически изменялись в цвете... я создал кнопку и прописал в ней

label1.show;
self.update;
sleep(2000);
label2.show;
self.update;
и т.д.

таким образом я реализовал постепеное появление label(ов) друг за другом, потом я создал таймер и захотел чтобы label(ы) изменяли цвет через рандом, ну я и это сделал, запускаю прогу и вижу что одновременного появления лабелов и изминения их цвета непроисходит! вместо этого происходит следующее: сначала появляются лабелы а уже потом они изменят свой цвет... дык вот... как мне сделать так чтобы они и изменяли свой цвет и появлялись идновременно?

[ApplicatiOn]

1ый таймер изменяет цвета.
2ой таймер отображает label's (таймер, пример которого дал тебе я)

что непонятного? если их десятки, то:

Код:

var
global: integer=0; {можно byte}

...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0: 
begin
label1.show;
self.update;
end;
1: 
begin
label2.show;
self.update;
end;
2: 
begin
label3.show;
self.update;
end;
3: 
begin
label4.show;
self.update;
end;
4: 
begin
label5.show;
self.update;
end;
// и т.д.
end;
global := global+1
end
end;

а в интервале у таймера ставиш 2000 (2 сек)

еще раз повторяю, что это второй таймер...

а в первом меняешь цвета...