Есть не большой вопрос

← →
qqpp (2006-03-29 17:44) [0]

Как сделать паузу между двумя действиями
......
begin
Label12.Visible := true ;
Sleep(2000);
Label12.Visible := false ;
end
Если делать так,
то если в Лейбле есть текст сперва идет пауза, а затем пустая лейбл и не гаснет.

← →
Palladin © (2006-03-29 17:54) [1]

если хочешь сделать мигание то используй TTimer
иначе можешь сделать

begin
Label12.Visible := true ;
Application.ProcessMessages;
Sleep(2000);
Label12.Visible := false ;
end

← →
oldman © (2006-03-29 18:15) [2]

Label12.Visible := true ;
for i=1 to 10000000000000...скоканада do ;
Label12.Visible := false ;

← →
Rial (2006-03-29 19:02) [3]

begin Label12.Visible:=True; Label12.Repaint; For i:=0 to 19 do begin Sleep(100); Application.ProcessMessages; end; Label12.Visible:=False;

← →
qqpp (2006-03-29 19:28) [4]

Мне просто на чтоб нажал на кнопку высветилась надись на 3 сеунды и исчезла, этим (описанным выше) способом выводится только пустой лейбл, и едит тоже

← →
Rial © (2006-03-29 19:51) [5]

А про Edit я что то только сейчас услышал.

Может, попробовать Label12.Caption:="Я не пустой" ?

← →
Kolan © (2006-03-29 21:28) [6]

Мне просто на чтоб нажал на кнопку высветилась надись на 3 сеунды и исчезла, этим (описанным выше) способом выводится только пустой лейбл, и едит тоже

procedure TForm1.BitBtn1Click(Sender: TObject); begin Label1.Caption := "Íàäïèñü"; Application.ProcessMessages; Sleep(3000); Label1.Caption := ""; end;

Чувствую сделуюшим будет вопрос: Как сделать чтобы окно не подвисало :)

← →
sniknik © (2006-03-29 21:52) [7]

oldman © (29.03.06 18:15) [2]
> Label12.Visible := true ;
> for i=1 to 10000000000000...скоканада do ;
> Label12.Visible := false ;

лишить зарплаты на три месяца за саботаж! если это конечно не шутка, и такой код реально используется.

← →
qqpp (2006-03-30 00:21) [8]

Всем огромное спасибо!!!
Application.ProcessMessages; обьясните что эта строка значит буду очень благодарен, вставил ее и все заработало....

Application.ProcessMessages принуждает твою программу выбирать сообщения из очереди сообщений не выходя из данной функции.

← →
qqpp (2006-03-30 08:58) [10]

Спасибо примерно так я и понял по хелпу

PS.
Отличный форум!!!!!!!

Есть не большой вопрос Найти похожие ветки