Здравствуйте! Вроде бы простая истина, но до меня никак дойти не может.
Есть программа, есть окно Form1, где есть кнопка Button1, при нажатии на которую открывается окно Form3.
В юните окна Form3 написан некий код, с циклом, и мне нужно, что бы при закрытии формы Form 3 выполнение этого цикла да и вообще кода в соответсвующем юните прерывалось. При закрытии крестиком окна опказывает форму 1, но цикл продолжается.
Пробовал убивать окно вот так:
Код:
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
DestroyWindow(FindWindow(nil,'Form3'));
end;
Ничего дельного из этого не вышло