Передать настройки с модального окна в popupmenu

[uralgsm]

Вопрос следующий... Есть главная форма, есть модальное окно с настройками.. В окне настроек есть выбор пути для запуска файла EXE...
на главной форме есть popupmenu с пунктом "запустить программу"

procedure TOptionForm.sBitBtn2Click(Sender: TObject);
   begin
   if sOpenDialog1.Execute then begin
  sEdit1.Text:= sOpenDialog1.FileName; //Записываем адрес и имя открытого файла
end;
 end;

Если на этой форме разместить кнопку запуска программы примерно вот так.. Все работает сторонний EXE запускается

procedure TOptionForm.sButton1Click(Sender: TObject);
begin
   ShellExecute(0, nil, PChar(sOpenDialog1.FileName), nil, nil, SW_SHOWNORMAL); //запускаем программу  это временная кнопка
end;

Как мне запустить программу из главного окна popupmenu я не соображу, как записать это в popupmenu при закрытии модального окна настроек?
... Через ini?

[Slym]

как пупап запускает?

можно имя хранить в глобальной переменной

[Stilet]

uralgsm

Стесняюсь спросить, а ты вообще различаешь эти два кода что представил?

как записать это в popupmenu

Записать что?

[uralgsm]

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

Стесняюсь спросить, а ты вообще различаешь эти два кода что представил?

Не совсем)) В общем только осваивать начал самостоятельно, читаю вот, гуглю..
Вобще я не совсем понимаю как из модального окна передаются параметры, с chekbox вроде разобрался...
Основное направление программирую под пик контроллеры на асме, а тут вот что то решил delphi

[Stilet]

как из модального окна передаются параметры

Еще раз задачу опиши подробно как будто ТЗ составляешь.

[Аватар]

Если модальная форма знает об окне вызвавшем её, то непосредственно по выходу из модальной можно обратиться к объектам, свойствам или public-переменным вызывающей формы. Если не знает, то можно примерно такой механизм использовать (он само собой не единственный, кучу вариантов еще можно предложить)

implementation

uses Unit2;

{$R *.dfm}

var lFileName: String;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MenuItem1.Enabled:=StartForm2(lFileName) and (lFileName<>'');
end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  ShellExecute(0, nil, PChar(lFileName), nil, nil, SW_SHOWNORMAL);
end;

var
  Form2: TForm2;

function StartForm2(var pFileName: String): Boolean;

implementation

{$R *.dfm}

function StartForm2(var pFileName: String): Boolean;
begin
  Form2:=TForm2.Create(Application);
  Result:=Form2.ShowModal=mrOk;
  if Result then pFileName:=Form2.Edit1.Text;
  Form2.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName
                         else Edit1.Text:='';
end;

procedure TForm2.ButtonOkClick(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

[uralgsm]

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

Еще раз задачу опиши подробно как будто ТЗ составляешь.

Есть главная форма, у главной формы есть popupmenu, из popupmenu можно открыть модальную форму, на модальной форме расположены настройки.
Так же в popupmenu есть "запустить левую программу", путь для запуска программы выбирается в модальной форме через OpenDialog и пишется в Edit,
как мне запустить эту выбранную программу из popupmenu " Запустить левую программу"?
Вот вроде как то так....

[uralgsm]

Проблема видимо в бессоной ночи)) Как обычно просто 5 секунд

procedure TForm1.N3Click(Sender: TObject);
begin
ShellExecute(0, nil, PChar(OptionForm.sOpenDialog1.FileName), nil, nil, SW_SHOWNORMAL);
end;

Вот я затупил аж стыдно

P.S.
Всем отозвавшимся +
Тему закрываю