Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 Виктор Щербаков: Спасибо ! То, что надо...



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

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

Наверх









Память: 0.82 MB
Время: 0.027 c
3-94293
binsprog
2002-04-08 20:14
2002.04.29
Getting username using TDatabase


3-94295
anton_private
2002-04-08 14:03
2002.04.29
Как получить список MS SQL серверов в сети?


6-94523
Delphir
2002-02-13 16:28
2002.04.29
IdSMTP - HELP!!!


3-94305
Uncle SAM
2002-04-09 00:40
2002.04.29
A не работет такая схема......


1-94488
MVova
2002-04-15 13:57
2002.04.29
Точка входа в функцию





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский