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

[DeKot]

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

[raxp]

не совсем понял, вызвать обработчик или проверить, произошел ли он?
1- TForm1.Button1click(nil)
2- в обработчике TForm1.Button1click меняем глобальный флаг, а в MyProc его проверяем.
...что-то Владимир вас не узнаю или я чего-то "не догоняю"

[Stilet]

Либо
Form1.Button1Click(Button1)
Либо
Form1.Button1.Click

Соответственно
Form1KeyDown(Form1,#0)

Короче тупо вызывать методы.

[DeKot]

Вопрос в том, что пока программа находится в 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.

[DeKot]

Михалыч, само то.

var
  Form1: TForm1;
  x,y: integer;
  flag_on_off: boolean;

implementation

{$R *.dfm}

procedure DrawGraf;
begin
  while flag_on_off = true do
  begin
    Application.ProcessMessages;
    if flag_on_off = false then EXIT;
    y:= y + 50;
    Form1.Canvas.LineTo(x,y);
    Sleep(50);
    x:= x + 20; y:= y - 50;
    Sleep(50);
    Form1.Canvas.LineTo(x ,y);
    if x >= 600 then
    begin
      x:= 50; y:= 300;
      Form1.Canvas.MoveTo(x,y);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:= 50;
  y:= 300;
  flag_on_off:= true;
  Form1.Canvas.MoveTo(x,y);
  RePaint;
  DrawGraf;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  flag_on_off:= false;
end;

end.

[mihali4]

while flag_on_off = true do
  begin
    //Application.ProcessMessages;
    if flag_on_off = false then EXIT;
...
    Application.ProcessMessages; //лучше здесь
  end;

Красное - не имеет смысла, ведь вы входите в цикл при flag_on_off = true.

[DeKot]

Это я просто наскоро пример накидал - в цикле рисуется "пила" и важен факт именно "аварийного" выхода не только из самой процедуры, а именно внутри цикла. Мне как раз и недоставало конструкции
Application.ProcessMessages;
< обращение к событию вне идущего процесса>
В данном случае - доступ события за процедурой и за циклом.