Преостоновить выполнение процедуры

[милт]

Как приостановить выполнение процедуры так чтобы таймер не переставал отсчитывать время? Как например это делает ShowMessage, только чтобы само сообщение не появлялось в котором надо нажать OK и чтобы останавливал на заданное время.

Вот пример

procedure TForm1.Button1Click(Sender: TObject);
begin
  Sleep(3000);
// скрипт который после Sleep, будет выполнен после паузы в 3 секунды
// и таймер при этом тоже будет остановлен на 3 секунды
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('ShowMessage');
// скрипт который после ShowMessage, будет выполнен после нажатия кнопки OK
// и таймер при этом не будет останавливаться
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
   Edit1.Text:='1';
 Timer1.Interval:=100;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Edit1.Text:=inttostr(strtoint(Edit1.Text)+1);
end;

[Volkogriz]

Sleep(3000); тут и не трогают таймер.

процедура или функция ждёт три секунды а таймер работает

[Stilet]

Что-т я ниче не понял...

[Slym]

procedure TForm1.Button1Click(Sender: TObject);
var time:dword;
begin
  time:=GetTickCount;
  while ((GetTickCount-time)<3000) do
  begin
    Application.ProcessMessages;
  end;
end;

[Аватар]

А зачем sleep и прочее если таймер есть? Пусть он эти 3 секунды и отсчитывает и запускает нужное.

[Utkin]

А потом жалуются, что не помогают, а только стебаются над ними. Вот как по такому описанию можно понять, что человеку надо?

[саша40]

Автор, ShowMessage создает отдельную форму и выполняет её в отдельном потоке. Делается это так:
1. Создается экземпляр диалоговой формы.
2. Создается на нем надпись и кнопка.
3. Надписи присваевается текст из параметра функции, а кнопке "ОК".
4. Выжидается момент, когда кнопка будет нажата пользователем.
5. При нажатие этой кнопки уничтожается форма вместе с компонентами.
Возможно она выполняется по MessageBox или подобной функции. Так или иначе это очередная загадка от Microsoft.

[FaTaL]

ShowMessage и Microsoft никак не связаны. ShowMessage это VCL.

[Alex11223]

ShowMessage (== MessageDlg) это VCL форма, нету там никакого Microsoft. Исходники VCL есть, можете посмотреть что и как оно делает (Dialogs.pas).
И ведет себя точно так же, как и любая другая модальная форма (открытая через ShowModal), которой он и является.

А стандартный MessageBox из WinApi создается через MessageBox (из юнита Windows) или Application.MessageBox.

Так или иначе это очередная загадка от Microsoft.

Очередная? А еще какие были? Может они и не загадки вовсе.

А насчет вопроса авторы темы: непонятно чего он хочет, но скорее всего надо не пытаться сделать какой-то странный костыль с таймерами, а почитать про потоки и использовать их.

[Человек_Борща]

Автор, ShowMessage создает отдельную форму и выполняет её в отдельном потоке.

Шта? Нет там никаких доп. потоков Для доп. потока надо свой диспетчер строчить чтоб маршрутизровал оконные сообщения в доп.поток с формой, а то окно из потока - мертвый груз.

процедура или функция ждёт три секунды а таймер работает

неа с этим облом.sleep усыпляет поток, в котором он вызван. Если в том же потоке есть и таймер, то он тоже работать не будет т.к. цикл оконных сообщений остановлен на время Sleep.
На счет мультимедийных таймеров не смотрел.

Как приостановить выполнение процедуры так чтобы таймер не переставал отсчитывать время?

Вынести процедуру в отдельный поток. Других вариантов асихнхронной работы не бывает(спит и ждет одновременно), наверное.