Создание динамической формы Delphi — обеспечение правильной обработки сообщений мыши

Реализовать свойство IsBusy в каждом классе размещенной формы (использовать наследование - реализовать это свойство в родительской форме). Перед удалением формы из панели хостинга (неважно, вызовом Free или просто перемещением из панели) проверьте, не верно ли IsBusy. Если ваша размещенная форма занята, подождите, пока она не закончится, а затем удалите ее. Вы даже можете добавить какой-то способ уведомить размещенную форму о том, что она должна прервать свою длительную задачу.

Это не только поможет решить вашу текущую проблему, но и позволит вам очистить некоторую бизнес-логику внутри ваших форм.

Таким образом, код изменения формы в вашем TreeView должен содержать следующий код:

    {FCurrentForm is a reference to currently placed form on panel}
    if (FCurrentForm.IsBusy) do
    begin
      {remember some information that will be used to create new form}
      FNewFormToBeAdded := ... 
    end
    else
    begin
      FreeCurrentForm();
      PlaceNewFormOnPanel();
    end;

Поэтому у вас должна быть такая рутина, как:

   procedure THostForm.NotifyMeAboutTaskFinished;
   begin
     if FNewFormToBeAdded <> 0 than 
     begin
       FreeCurrentForm();
       PlaceNewFormOnPanel();
     end; 
   end;

И в вашей форме HOSTED вы можете иметь

procedure TSomeHostedForm.btnDoLongTaskClick(Sender : TObject);
begin
  IsBusy := true;
  try
    {... do some tikme taking task ...}
  finally
    IsBusy :=false;
    NotifyHostingFormIAMNotBusyAnymore();
  end;
end;

Ваш TreeView.OnClick может вызывать метод CloseQuery текущей активной формы. Если CloseQuery возвращает false, не меняйте формы местами. Затем вы можете обрабатывать стандартный CloseQuery для форм, которые в нем нуждаются.

В формах, показанных на панели, вам нужно будет отслеживать некоторое состояние, чтобы знать, действительно ли вы можете закрыть или нет. Мои длительные процессы также проверяют условие остановки. Обычно у меня также есть кнопка отмены, но любой вызов CloseQuery также приведет к прерыванию длительного процесса. Мой CloseQuery обычно выглядит так:

procedure TBatchPoster.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin inherited;

  if FProcessRunning = true then
  begin
    FStop := true;
    CanClose := false;
  end;
end;

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

На самом деле это то же самое, что и ответ smok1, но поскольку вы уже используете форму, вам не нужно добавлять новое свойство.

Хотя я согласен с обоими ответами «Дельтики», есть еще один вариант — в зависимости от того, нужно ли вам освобождать форму.

В событии формы FormClose установите действие на caHide. Это скроет, а не уничтожит форму. Вам нужно будет отслеживать, какие формы вы назначили (вероятно, используя указатель «Данные» в TTreeNode).