Форум: "Основная";
Текущий архив: 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 не высвечиваются в статус-баре... хотя указатель мыши меняется правильно...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c