Re: ошибка в ActionMainMenuBar при работе с MDIChild окнами
От: Sergey Ten http://www.fastalgo.com
Дата: 05.02.03 19:24
Оценка:
Здравствуйте, Аноним, Вы писали:

А>В ActionMainMenuBar при нажатии на кнопки сворачивания и закрытия MDI окна в обоих случаях срабатывает FormClose. Но мне то окно <B>ЗАКРЫВАТЬ</B> не нужно!!!!


Вот кусок из TCustomForm:

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); // Это сгенерит эвент OnClose

      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;


Попробуйте проверить CloseAction на предмет caMinimize. Подумайте также насчет того, чтобы перенести код из OnClose в OnDestroy.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.