Закрыть форму по команде TsaveDialog

[kta87]

if SaveNewFile.Execute() = True then
 begin
  //Тут тело программы;
 end;

При запуске TSaveDialog если юзер нажимает сохранить, то выполняется то что в теле кода выше (ну это как пример)! Подскажите как сделать так что бы форма закрывалась, если юзер в TSaveDialog выбрал ОТМЕНА?

[Stilet]

Элементарно, Ватсон

if SaveNewFile.Execute() = True then
 begin
  //Тут тело программы;
 end else close;

[kta87]

ну было бы так просто, не писал бы... так как ты написал не работает.. вот кусок кода...

 if SaveNewFile.Execute() = True then
      begin
        FilePath:= SaveNewFile.FileName + '.exe';
        ComDown:= TDownLoader.Create(true);
        ComDown.URL:= 'тут у меня ссылка на новую программу';
        ComDown.ToFolder:= FilePath;
        ComDown.FreeOnTerminate:= True;
        ComDown.OnTerminate:= thrTerminate;
        ComDown.Start;
      end
     else
      UpdateModule.Close;

[Stilet]

так как ты написал не работает

Ладно. по другому. Замени UpdateModule.Close; на ShowMessage() или поставь на нее бряк. Запусти прогу - остановится она на бряке, или вылезет сообщение?
Если да (уверен что вылезет) значит у тебя где-то еще что-то мешает закрытию формы.
Пройдись по шагам - будь проггером, в конце то концов )
По твоему куску кода сложно понять что там у тебя написано такого что конфликтует.

[kta87]

Ну ты прав, конечно.. сообщение появляется. В программе использую потоки, как видишь они подключатся как раз в том условии что по SaveDialog.Execete() = True; По этому ни как не могу понять что мешает закрытию форму... Подскажи способы для отыскивания такого дела..?

[Stilet]

Подскажи способы для отыскивания такого дела.

Wow! Смекалистая башка, наблюдательность и отладчик...
Там где идет закрытие формы нужно останавливать все потоки, которые были запущены. Ты их храни в TThreadList и с помошью его останавливай.

[Miha85193]

Если нужно закрыть всю программу, то Application.Terminate должно сработать.

[Stilet]

то Application.Terminate должно сработать.

Не всегда. Если есть какие-то потоки или еще что-то задерживающее программу в открытом состоянии то этот метод может обломаться.

[Miha85193]

Сообщение от Stilet

Не всегда. Если есть какие-то потоки или еще что-то задерживающее программу в открытом состоянии то этот метод может обломаться.

Наверное дело в самом коде программы, потому, как обычно срабатывает и Close и Application.Terminate.

Топикстартеру я бы посоветовал следующее

if SaveNewFile.Execute then
begin
  ///
end 
else Timer1.Enabled := True;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Close;
end;

Если форма, в принципе, может динамически закрываться, то должно сработать. Если нет, то вся проблема в коде.

[Человек_Борща]

Опять же, не подстрайвайтесь под компоненты, не ограничивайте себя в возможностях.
Наследйте компонент или вообще скропируйте и напишитие события при нажатии ок или отмена.

Рано или поздно, но вы столкнетес с моментом когданужно будет переделать что-то под себя.

Туда очень просто добавить свойство модального результата.