Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

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

 
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;   обьясните что эта строка значит буду очень благодарен, вставил ее и все заработало....


 
Германн ©   (2006-03-30 02:13) [9]

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


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

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

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



Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.037 c
3-1140726959
Falcon(TFsoft)
2006-02-23 23:35
2006.04.16
Проблема с конектом к MySQL


2-1143807186
Der Nechk@ssoff
2006-03-31 16:13
2006.04.16
Canvas


9-1128328498
XCoder
2005-10-03 12:34
2006.04.16
Камера


2-1144049557
vegarulez
2006-04-03 11:32
2006.04.16
При добавлении в БД выскакивает ошибка...


2-1143617570
Лёха
2006-03-29 11:32
2006.04.16
сетевое подключение