[Kpyc]

Из главной вызывается модальная, как ее закрыть на нажатие кнопки? На крестик закрывается спокойно.

Код:

procedure TfrmSearch.btnGOClick(Sender: TObject);
var
  action: TCloseAction;
  
begin
  action := caFree;
  frmSearch.FormClose(nil, action);
end;

procedure TfrmSearch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmMain.SearchParam.Name := edtName.Text;
  frmMain.SearchParam.address := edtAddress.Text;
  frmMain.SearchParam.phone := edtPhone.Text;
  frmMain.SearchParam.worktime := edtTime.Text;
  frmMain.SearchParam.production := edtProd.Text;
end;

Почему не хочет

[m1sclick]

Давно с Delphi не виделся но что-то мне подсказывает что если из главной формы открыть модальную с именем Form2 то закроется она Form2.Close; Или нет?

[Kpyc]

Код:

procedure TfrmSearch.btnGOClick(Sender: TObject);
begin
  frmMain.SearchParam.Name := edtName.Text;
  frmMain.SearchParam.address := edtAddress.Text;
  frmMain.SearchParam.phone := edtPhone.Text;
  frmMain.SearchParam.worktime := edtTime.Text;
  frmMain.SearchParam.production := edtProd.Text;
  frmSearch.Close;
end;

Не работает.

[Jlovenpk1|seyu]

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.close;

Может это?)

[Kpyc]

Так я же модально отображаю, пока она открыта, другие формы недоступны .

[Jlovenpk1|seyu]

Тебе нужно, что бы она закрывалась как?)

[Kpyc]

На нажатие кнопки на ней же

[Kpyc]

Вычитал про ModalResult в мсдн, попробовал поставить не 0 значение, по-прежнему не пашет

[Jlovenpk1|seyu]

Тебе так надо?)
на 1 форме(через кнопку, не важно как открывается 2 форма и на второй форме есть волшебная кнопка для закрытия, где код form2.close

[Jlovenpk1|seyu]

procedure CloseModal;

ну или так

[Kpyc]

Уже пробовал с простым Close, не знаю почему, но не пашет, данные отправляет, но не закрывает.

[Kpyc]

Откопал старую тему, разобрался, цитирую:

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

все очень просто если заглянуть в реализацию Close в модуле Forms:

Код:

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

форма вызывается через ShowModal, соотв. будет выполняться красный код. а он только ModalResult присвоит значение mrCancel и все. если дальше покопать модуль Forms, то можно найти:

Код:

function TCustomForm.ShowModal: Integer;
var
  WindowList: Pointer;
  SaveFocusCount: Integer;
  SaveCursor: TCursor;
  SaveCount: Integer;
  ActiveWindow: HWnd;
begin
  CancelDrag;
  ...
    Show;
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0;
      repeat
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0;
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);
      if GetActiveWindow <> Handle then ActiveWindow := 0;
    finally
      Hide;
    end;

[Ildar-tsr]

Столько шума на пустом месте

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Self.ModalResult:= mrCancel;
end;

[cotseec]

кнопке btnG0 (по которой нужно закрывать форму) в инспекторе объектов (или при создании формы) присвоить необходимый ModalResult, соответственно при нажатии на нее форма будет закрываться и выдавать установленный ModalResult

[angvelem]

Обыно поисковую форму не делают модальной.