проблема с MDI приложением

← →
Андрусь (2002-07-09 19:47) [0]

Привет всем! У меня такая проблема: в MDI приложении почему-то при максимизации child не видно иконок окна(минимизация,максимизация, закрытие).+ ко всему прижатые панели(alBottom,alRight)не прижимались соответственно. Причём берёшь новое MDI приложение - там работает. Всё это глюкает во всех child шаблона и переделывать всё нет желания. Подскажите,если не сложно. Зараннее большое спасибо!

← →
Eugene Lachinov (2002-07-09 20:39) [1]

Для чего написано честно говоря не помню, но может поможет

procedure UpdateMDIMenu;
var
Size : LongInt;
begin
if (Application.MainForm <> NIL) then
with Application.MainForm do
if (ActiveMDIChild <> NIL) then
with ActiveMDIChild do
if WindowState = wsMaximized then begin
Size := ClientWidth + (Longint(ClientHeight) shl 16);
SendMessage(Handle, WM_SIZE, SIZE_RESTORED, Size);
SendMessage(Handle, WM_SIZE, SIZE_MAXIMIZED, Size);
end;
end;

← →
Eugene Lachinov (2002-07-09 20:42) [2]

Вызывалось это в UpdateMenuItems(Sender : TObject);
Screen.OnActiveFormChange := UpdateMenuItems;
если в главном меню были какие-либо изменения

← →
Андрусь (2002-07-09 21:30) [3]

Честно говоря я не понимаю в чем дело:простая MDI форма без особых наворотов,но даже простейшие child не работают как надо.
В тоже время почти тоже - всё работает.

проблема с MDI приложением Найти похожие ветки