Delphi компонент Timer

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Sunstrider, 24 Apr 2010.

  1. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    PHP:
    ProgressBar1.position:=ProgressBar1.position   +10;
    if     ProgressBar1.position = 100 then Showmessage ('you ');
    Timer1.Enabled:=False;
    Прогрес бар на 10 ке зависает и все
     
    #1 Sunstrider, 24 Apr 2010
  2. Jaw

    Jaw New Member

    Joined:
    12 Apr 2010
    Messages:
    4
    Likes Received:
    1
    Reputations:
    0
    Ему больше ничего не остается делать(

    Code:
    procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max; 
ProgressBar1.Position := ProgressBar1.Position + 10; 
if ProgressBar1.Position= 100 then 
ShowMessage('you'); 
end;
     
    #2 Jaw, 24 Apr 2010
    Last edited: 24 Apr 2010
  3. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    спасибо помогло
     
    #3 Sunstrider, 24 Apr 2010
(You must log in or sign up to post here.)