Как я обнаруживаю, имеет ли мое приложение Дельфи в настоящее время модальное окно?
После разрешения конфликта коммит revert содержит изменения.
Так что вы не можете продолжить, так как по умолчанию git запрещает создание пустых коммитов.
Вы можете:
- Попробуйте
--allow-emptyparam, но я не понимаю, как это было бы полезно для вас. - Отмените создание обратной фиксации, запустив
git revert --abort. А затем создайте возвратный коммит вручную (просто вручную внося изменения). - Попробуйте перебазировать коммит, который будет возвращен, чтобы быть в топе коммита. Скорее всего, ваш коммит, который вы пытаетесь вернуть, не самый последний. Таким образом, размещение его на вершине позволит вам создать возврат без каких-либо конфликтов.
- Подобно rebase в предыдущем варианте, но просто удалите его из истории веток.
Два последних варианта будут связываться с историей ветки, хотя, если другие люди работают над этой веткой, то могут возникнуть проблемы при перебазировании / слиянии.
3 ответа
Вы могли попробовать этим кодом:
var
ActForm: TCustomForm;
begin
ActForm := Screen.ActiveForm;
if (ActForm = nil) or not (fsModal in ActForm.FormState) then begin
end;
end;
Я протестировал с Delphi 4, работами для меня.
[Править]: Но необходимо действительно думать о том, являются ли, открываясь форма и кража фокуса хорошей идеей. Это зависит от Вашего приложения, но если пользователь в настоящее время вводит что-то в поле редактирования или делает что-то с мышью, затем это могло бы повредить их рабочий процесс.
Возможно, решение состоит в том, чтобы на самом деле открыться подсказка, которая не крадет фокус. Активируемая по щелчку подсказка, где-нибудь видимая, но не слишком агрессивный. Таким образом, если пользователь хочет принять меры, они могут, или они могут разрушить то, что они делали, затем принимают меры. Или, возможно, проигнорируйте его в целом.
Начиная с Delphi 2005 у Вас есть свойство ModalLevel на TApplication. Это считает количество Модальных форм открытым в приложении.