Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

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 Виктор Щербаков: Спасибо ! То, что надо...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх








Память: 0.75 MB
Время: 0.017 c
7-94580           goshavt               2002-01-31 11:54  2002.04.29  
как в сервисе NT создать видимое окно?


1-94374           SashaK                2002-04-17 14:34  2002.04.29  
Сжатие потока


3-94316           fishka                2002-04-09 10:26  2002.04.29  
Перевод базы с InterBase5.0 на InterBase 6.0


4-94620           Cheis                 2002-02-23 23:54  2002.04.29  
Здраствуйте. Как выключить в e равую клавишу мыши, чтобы popup меню не вылезало.


1-94420           Den_                  2002-04-18 08:57  2002.04.29  
Уважаемые Мастера!