Вызов обработчика внутри собственной процедуры

Posted by maloy under Delphi, Архив

Dekot

Имеется написаная собственная процедура procedure MyProc();.
Как внутри этой процедуры использовать стандартный обработчик события, например — TForm1.Button1Click или TForm1.KeyDown ? Скажем по наступлению события произошел выход из процедуры MyProc.

Вопрос в том, что пока программа находится в MyProc, кнопки Button или клавиши клавиатуры Key недоступны.

procedure MyProc;
var i,N: integer;
begin
  for i:= 0 to  N do
  begin
    < выполняется какая то  операция процедуры MyProc >
    < здесь надо проверить не нажата ли кнопка Form1.Button1
       и если нажата, обработать это событие >
  end;
end;

Как именно внутри MyProc вызвать TForm1.Button1Click(Sender:TObject) .

mihali4

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

Application.ProcessMessages

тема на форуме от 2009 года

Похожие статьи

• Вызвать из DLL в EXE процедуру
• Правила пространства имён Delphi
• Передача процедуры в процедуру через Pointer
• Как в цикле дождаться загрузки webbrowser и продолжить работу
• Подсветка кода в RichEdit
• Как вызвать самому процедуру MouseDown?
• Как сделать так чтобы при нажатии кнопки значение в label становилось например красного цвета