Окна на desktop черепицей, если одно сделано на Delphi

← →
sman (2007-10-18 12:51) [0]

Доброго времени всем!
Windows XP, Delphi 7 или Turbo Delphi Explorer (эффект проявляется при использовании любой из них)

На десктопе находятся два развернутых окна. Одно из них - окно программы, написанной на Delphi, другое - написанное на чем-нибудь другом, например, IExplorer.

Щелкаем правой кнопкой мыши на таскбаре, в меню выбираем "Окна слева направо" (или "Окна сверху вниз" - эффект аналогичный). В результате окна располагаются так, как будто их не два, а три, на месте третьего виден десктоп.
Поиск в интернете ничего не дал.

Я догадываюсь, что причина в том, что в Delphi на самом деле не одно окно а два (TApplication и TMainForm), но в какую сторону копать - может кто подскажет?
Заранее спасибо всем.

← →
sman (2007-10-18 13:48) [1]

Да, проблему озвучить забыл: как заставить программу, писанную на Delphi, правильно вести себя в этом случае?

← →
vpbar © (2007-10-18 15:53) [2]

Хз. Как вариант перехват сообщений о смене размера окна посылаемых окну Application.Handle и передача их главному окну формы. Это если explorer-shell посылает такое сообщение.
Только нафик это надо. все равно эта функция укладки окон в часто глючит и поэтому ей редко пользуются, имхо.

← →
sman (2007-10-18 16:11) [3]

Согласен, что надо перехватывать. Только скорее всего надо перехватывать подсчет shell"ом количества окон, тогда и размеры устанавливать не понадобится, если подсчет будет вестись верно.

Функция редко используемая, но некоторые пользователи спрашивают, почему такое поведение. Насчет ее глючности сказать ничего не могу, может это мнение сложилось как раз из-за такого поведения делфийских приложений?

В общем, наверно, в MSDN.
Спасибо.

> sman (18.10.07 12:51)

в Delphi 2007 проблему вроде как решили, но криво. см. свойство TApplication.MainFormOnTaskbar.
Все бы хорошо, только тогда остальные формы становятся все время поверх главной.
есть и другой вариант решить проблему, только он громоздкий и на работе исходников нету.

← →
passing by (2007-10-20 12:38) [5]

Полностью решает указанную проблему вызов

SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or ws_ex_toolwindow);

Возникает другая - окно главной формы после этого будет сворачивается не в таскбар, а на десктоп, но ему можно установить WS_EX_APPWINDOW или, м.б. TApplication.MainFormOnTaskbar? Скорее всего, придется ковыряться в оконной процедуре главной формы, слишком там у них все связано, у Application и MainForm

Окна на desktop черепицей, если одно сделано на Delphi Найти похожие ветки