Вывод сообщения без кнопок

[transgd]

Доброе время суток!
Перелистал (допускаю - плохо) Хелп и не нашел функцию, с помощью которой можно сделать сообщение, которое должно висеть, пока не закончится следующая за этой функцией команда. Сообщение, допустим :
"Сохранение документа". Функции MsgBox и InputBox предлагают обязательный выбор кнопки.

[NetSpace]

сделай в виде отдельной формы без верхнего бордюра с конпками. и свойство у неё, напрмер, так:

procedure TForm1.FormCloseQuery(Sender:TObjec t;var CanClose:Boolean);
begin
CanClose:=False;//не закрыть, сколь на крестик не нажимай
end;

модератору: ну, не получается у меня выделять код, как вы ни объясняли!!!! приходится в виде текста оформлять...

[EducatedFool]

Для начала добавьте в проект VBA форму, которая будет временно отображаться на экране на время выполнения процедуры (любую, можно с кнопочками и вообще с чем угодно)

Потом запустите этот код:

Sub test()
    UserForm1.Show False    'отображаем форму
    UserForm1.Caption = "Подождите немного..."

    ' длительная процедура
    For i = 1 To 100000: DoEvents: For j = 1 To 100: Next: Next

    Unload UserForm1    ' закрываем форму
End Sub

По умолчанию имя новой формы - UserForm1
Если у Вашей формы другое имя, измените его в макросе.

Функции MsgBox и InputBox предлагают обязательный выбор кнопки

Эти функции в данном случае не подойдут.
Пока отображается сообщение, созданное этой функцией, выполнение кода приостанавливается до нажатия одной из кнопок на сообщении.

[transgd]

Спасибо! Все понятно.

[transgd]

А как убрать крестик, предлагающий закрыть форму?

[EducatedFool]

А поиском сложно было воспользоваться?

http://www.programmersforum.ru/showthread.php?t=45969

[transgd]

Спасибо! Извините за лень.