Собственный стек процедур или выход посреди процедуры

[evg_m]

procedure RunStep1(f: TMyform);
var
  r: TModalResult { | cardinal | integer} ;
begin 
  f.Show; // Вывод начальной информации
  Application.ProcessMessage; //чтобы увидеть, но не ждать

  f.hide; r:=f.ShowModal; //ЖДЕМ нажатия (на нужной кнопке должно быть   ModalResult:=mrok; на других может быть ДРУГОЙ к примеру ModalResult:=mrcancel; 

  case r of  ///   если то иначе СМОТРИМ ЧТО было нажато
  mrok: Q:=1;
  mrcancel: Q:=0;
  end;
  f.Show; Application.ProcessMessage; // вывод чего-нибудь

end;

[Pavia]

fanlis Это у вас стресс и включился режим паники.

Для начала я бы попытался решить поставленную задачу, т.е. прерывать работу процедуры и возвращаться в нее. И сделать то же, что я уже сделал, но с обычным стеком (просто не знаю как), поэтому и спросил конкретно. Если не получится, тогда поменять метод, не через стек, а как-то еще. Ну а если уж и это никак, тогда придется как-то менять весь подход и доказывать, что поставленная задача нерешаема (что не хотелось бы).

Ваш подход неправильный изначально. Рано или поздно вы к этому придёте.

Почему он неправильный? Да потому что он ведёт к усложнению программы и запутыванию кода.

Но так получается, что событие предусматривает работу с интерфейсом программы, т.е. должно прерывать свою работу, чтобы получить данные от пользователя (например, нажатие кнопки).

Есть событийная парадигма, а есть алгоритмическая парадигма. Для тех кто забыл напоминаю что алгоритм это строгая последовательность действий.
Вот вы сейчас пытаетесь писать события в алгоритмическом стиле, что нарушает сам подход. В событийной модели управляющие воздействия подаются на вход. И они не должны вызываться в течении работы. В алгоритмическом напротив состояния событий проверяются в ходе работы.

Если хотите смешивать пишите интерпретатор. Но это так же будет вносить путаницу в работу.

(т.к. допустим эта кнопка используется во многих событиях).

У вас неправильная декомпозиция или понимания программы. У кнопки всего два событие нажата или отжита.
И всего два метода для их обработки. И не надо ничего придумывать. Дело в том что надо понять. Тут идёт инверсия управления. Из-за этого и путаница. В событийной парадигме управление идёт вам из вне. А в алгоритмической вы управляете другими.

- не понятно какую процедуру вызывать после того, как закончилась первая (требующая нажатия кнопки)

Вот вам и доказательство, что поставленная задача не решается.

Был у меня еще один мысль (как предлагалось здесь): программа просит нажать кнопку и переходит в бесконечный цикл с Application.ProcessMessages, который ждет нажатия. Но это ведь занимает процессор, а это плохо.

- Ничего плохого в том что процессор занят нету.
- Во вторых не занимает.
- в третьих можно сделать что-бы не занимало. Но подумайте оно нужно или нет?

У меня была задумка работать со стеком (не с моим, а с обычным), как-то добавлять самому туда адреса процедур или что-то подменять, но я это не умею делать.

Вам кажется что задача имеет решение. Но его нет. Можно конечно решить частный случай. Но врятли он вас устроит.
Есть хорошая книжка beginners.re/Reverse_Engineering_for_Beginners-ru.pdf
Прочитайте про стек вызовов. Для раскрутки стека вам понадобиться разобрать входной файл на функции и процедуры и методы. Для этого вам нужно прикрутить к свой программе декомпилятор Delphi. можно и свой написать надо будет разобрать формат PE найти секции с кодом, с отладочной информацией. Вытащить оттуда начало функций. Можно и Map разобрать. Затем найти конец процедур. Где начинается одна, там кончается другая. А после сделать внедрение в код для перехвата.
http://habrahabr.ru/post/178393/
лучше это, тут про правильный перехват написано.
http://habrahabr.ru/post/181157/

[fanlis]

evg_m, не понял что вы написали. Точнее не понял как это применимо ко мне. Там несколько форм получается, а у меня одна. ShowModal мне основную форму что ли делать?

Pavia

Прочитайте про стек вызовов. Для раскрутки стека вам понадобиться разобрать входной файл на функции и процедуры и методы. Для этого вам нужно прикрутить к свой программе декомпилятор Delphi. можно и свой написать надо будет разобрать формат PE найти секции с кодом, с отладочной информацией. Вытащить оттуда начало функций. Можно и Map разобрать. Затем найти конец процедур. Где начинается одна, там кончается другая. А после сделать внедрение в код для перехвата.

Это как-то уж страшно сложно!

Что-то как-то написано много, а что делать так и не понятно.
Ну если со стеком ничего не выйдет, то как тогда поступить?

[evg_m]

(чтобы сделать какие-то действия на форме, например, нажать кнопку), а затем снова возвращаться в процедуру с того места, где было прерывание.

f.hide; r:=f.ShowModal; //ПОКАЗЫВАЕМ с ОЖИДАНИЕМ действия пользователя нажатия (на нужной кнопке должно быть   ModalResult:=mrok; на других может быть ДРУГОЙ к примеру ModalResult:=mrcancel; 

  case r of  //   ДЕЙСТВУЕМ в зависимости от действий пользователя на форме .если то иначе СМОТРИМ ЧТО было нажато
  mrok: Q:=1; 
  mrcancel: Q:=0;
  end;