Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.034 c