StatusBar [Delphi]

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by FalseBit, 20 Jan 2012.

  1. FalseBit

    FalseBit New Member

    Joined:
    12 Jun 2011
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Пишу программу. Столкнулся с такой проблемой:
    при запуске проги (после компиляции) текст не появляется в статус баре. (до этого полявлялся)

    Code:
    procedure TForm1.Timer2Timer(Sender: TObject);
    begin
    if stop_t=false then
    StatusBar1.Panels[0].Text := 'Статус: Проверка' else
    StatusBar1.Panels[0].Text := ''Статус: Ожидание';
    if stop_t=false then
    StatusBar1.Panels[1].Text := 'Проверено'+IntTostr(Form1.Listview1.Items.Count)+
    ' из '+IntToStr(urlcount) else
    StatusBar1.Panels[1].Text := 'На проверку: '+IntToStr(urlcount);
    end;
    п.с.
    таймер стоит на интервале 1000 мс.
    в момент проверки stop_t=true
    (после того как становится false, текст так же не появляется в статус баре).