Закрытие формы при работе с SelectDirectory

[Shouldercannon]

Так я задаю путь к игре

  if SelectDirectory('Set game location', '', GamePath) then
    if not FileExists(GamePath + '\lithtech.exe') then
      begin
        MessageBox(0, 'Path to lithtech.exe is specified incorrectly!', 'Error', MB_ICONError);
        GamePath := LGamePath.Caption;
        Exit;
      end;

  LGamePath.Caption := GamePath;
  PBBOK.Click; // Сохранить настройки и закрыть форму

Если путь не верен, то сказать об этом и остаться в окне натроек иначе закрыть форму, но закрытие формы также происходит если открыть окно выбора папки и нажать на отмена или кнопку закрыть. Как этого не допустить?

[Stilet]

  while not SelectDirectory('Set game location', '', GamePath) or (GamePath='') then
    if not FileExists(GamePath + '\lithtech.exe') then
      begin
        MessageBox(0, 'Path to lithtech.exe is specified incorrectly!', 'Error', MB_ICONError);
        GamePath := LGamePath.Caption;
        Exit;
      end;

Что-то в этом роде?

[Korben5E]

ну дык
PBBOK.Click; // Сохранить настройки и закрыть форму
(это-же функция закрытия формы?)

выполняется всегда - независимо от SelectDirectory...

вставьте ее внутрь блока if

[Shouldercannon]

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

  while not SelectDirectory('Set game location', '', GamePath) or (GamePath='') do
    if not FileExists(GamePath + '\lithtech.exe') then
      begin
        MessageBox(0, 'Path to lithtech.exe is specified incorrectly!', 'Error', MB_ICONError);
        GamePath := LGamePath.Caption;
        Exit;
      end;

Что-то в этом роде?

Так вообще жесть, окно постоянно появляется при нажатии на Отмена или закрыть

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

ну дык
PBBOK.Click; // Сохранить настройки и закрыть форму
(это-же функция закрытия формы?)

выполняется всегда - независимо от SelectDirectory...

вставьте ее внутрь блока if

Это процедура. Вот весь код

procedure TFormSettings.PBBSetClick(Sender: TObject);
begin
  if SelectDirectory('Set game location', '', GamePath) then
    if not FileExists(GamePath + '\lithtech.exe') then
      begin
        MessageBox(0, 'Path to lithtech.exe is specified incorrectly!', 'Error', MB_ICONError);
        GamePath := LGamePath.Caption;
        Exit;
      end;

  LGamePath.Caption := GamePath;
  PBBOK.Click;
end;

procedure TFormSettings.PBBOKClick(Sender: TObject);
var
  F: TRegIniFile;
begin
  F := TRegIniFile.Create('Software');
  F.OpenKey('Project1', True);
  F.WriteString('Settings', 'GamePath', GamePath);
  F.WriteString('Settings', 'LaunchOnStartUp', LaunchOnStartUp);
  F.WriteString('Settings', 'Sounds', Sounds);
  F.WriteString('Settings', 'AutoUpdate', AutoUpdate);
  F.WriteString('Settings', 'LoadMasterList', LoadMasterList);
  F.Free;

  Close;
end;

[FaTaL]

Ну и сделай так:

procedure TFormSettings.PBBSetClick(Sender: TObject);
begin
  if SelectDirectory('Set game location', '', GamePath) then
    begin
      if not FileExists(GamePath + '\lithtech.exe') then
        begin
          MessageBox(0, 'Path to lithtech.exe is specified incorrectly!', 'Error', MB_ICONError);
          GamePath := LGamePath.Caption;
          exit;
        end;
      LGamePath.Caption := GamePath;
      PBBOK.Click;
    end;
end;

[Shouldercannon]

Спасибо за внимание. Проблема решена.