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

Вниз

TStatusBar - не отображается :((   Найти похожие ветки 

 
koks ©   (2002-04-15 11:44) [0]

Уважаемые знатоки ! Подскажите пожалуйста !

sbMain: TStatusBar {на главной форме}

procedure TfmMain.StartLongProcess(Status, Comment: string);
begin
sbMain.Panels[0].Text := Status;
sbMain.Panels[1].Text := Comment;
Screen.Cursor := crHourGlass;
end;

procedure TfmMain.FinishLongProcess(Status, Comment: string);
begin
sbMain.Panels[0].Text := Status;
sbMain.Panels[1].Text := Comment;
Screen.Cursor := crDefault;
end;

procedure DoQuery;
begin
fmMain.StartLongProcess("Выполнение...", "Сохранение текущих цен в базе");

{-- запрос ADOQuery - > Access 2000 --}

fmMain.FinishLongProcess("Готово", "Возможно выполнение следующей операции");

При выполнении процедуры DoQuery все нормально работает, однако надписи, которые передаются в StartLongProcess не высвечиваются в статус-баре... хотя указатель мыши меняется правильно...


 
gek ©   (2002-04-15 11:47) [1]

Application.ProcessMessages;//не забываем о других задачах


 
Виктор Щербаков ©   (2002-04-15 11:48) [2]

fmMain.StartLongProcess("Выполнение...", "Сохранение текущих цен в базе");

Application.ProcessMessages;

{-- запрос ADOQuery - > Access 2000 --}

fmMain.FinishLongProcess("Готово", "Возможно выполнение следующей операции");



 
Ser_Kham1   (2002-04-15 12:52) [3]

sbMain.Refresh


 
koks ©   (2002-04-16 16:02) [4]

2Ser-Kham1: Update, Refresh, Repaint и пр. я уже перепробовал... не помогло.

2 Виктор Щербаков: Спасибо ! То, что надо...



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
3-94290
Logic
2002-04-08 15:50
2002.04.29
Перенос данных из MS SQL в MS Access


7-94577
Александр!
2002-01-29 12:12
2002.04.29
OpenGL


3-94322
bcg
2002-04-05 16:08
2002.04.29
remote MySQL + Delphi


14-94543
McSimm
2002-03-21 12:32
2002.04.29
apache и ssi


1-94405
heruvim4ik
2002-04-17 22:21
2002.04.29
Password Char