Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Есть не большой вопрос [D6, XP]

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

qqpp (2006-03-30 08:58:00) [1]
Спасибо примерно так я и понял по хелпу

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

Германн (2006-03-30 02:13:00) [2]
Application.ProcessMessages принуждает твою программу выбирать сообщения из очереди сообщений не выходя из данной функции.

qqpp (2006-03-30 00:21:00) [3]
Всем огромное спасибо!!!
Application.ProcessMessages; обьясните что эта строка значит буду очень благодарен, вставил ее и все заработало....

sniknik (2006-03-29 21:52:00) [4]
oldman © (29.03.06 18:15) [2]
> Label12.Visible := true ;
> for i=1 to 10000000000000...скоканада do ;
> Label12.Visible := false ;

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

Kolan (2006-03-29 21:28:00) [5]
Мне просто на чтоб нажал на кнопку высветилась надись на 3 сеунды и исчезла, этим (описанным выше) способом выводится только пустой лейбл, и едит тоже

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

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

Rial (2006-03-29 19:51:00) [6]
А про Edit я что то только сейчас услышал.

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

qqpp (2006-03-29 19:28:00) [7]
Мне просто на чтоб нажал на кнопку высветилась надись на 3 сеунды и исчезла, этим (описанным выше) способом выводится только пустой лейбл, и едит тоже

Rial (2006-03-29 19:02:00) [8]
begin Label12.Visible:=True; Label12.Repaint; For i:=0 to 19 do begin Sleep(100); Application.ProcessMessages; end; Label12.Visible:=False;

oldman (2006-03-29 18:15:00) [9]
Label12.Visible := true ;
for i=1 to 10000000000000...скоканада do ;
Label12.Visible := false ;

Palladin (2006-03-29 17:54:00) [10]
если хочешь сделать мигание то используй TTimer
иначе можешь сделать

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »