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