Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

MDI 


roman001   (2002-04-07 08:09) [0]

Доброе утро. Такая проблема: беру fsMDIChild и открываю два его экземпляра, последний разворачиваю. Потом эго закрываю, а у первого после этого пропадают кнопки (свернуть, разв...) в заголовке окна??? Аналогичная картина в стандартном Дельфовом примере



Игорь Шевченко   (2002-04-09 10:40) [1]

{$IFDEF VER100}
{$DEFINE DELPHI3&4}
{$ENDIF}

{$IFDEF VER120}
{$DEFINE DELPHI3&4}
{$ENDIF}

type
TfMDIChild = class(TForm)
....
private
procedure WMMDIActivate(var Msg: TWMMDIActivate); message WM_MDIACTIVATE;
...
end;

procedure TfMDIChild.WMMDIActivate(var Msg: TWMMDIActivate);
var
Style: Longint;
begin
if (Msg.ActiveWnd = Handle) and (biSystemMenu in BorderIcons) then begin
Style := GetWindowLong(Handle, GWL_STYLE);
if (Style and WS_MAXIMIZE <> 0) and (Style and WS_SYSMENU = 0) then
{$IFDEF DELPHI3&4}
SetWindowLong(Handle, GWL_STYLE, Style or WS_SYSMENU);
{$ELSE}
SendMessage(Handle, WM_SIZE, SIZE_RESTORED, 0);
{$ENDIF}
end;
inherited;
end;

С уважением,




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
7-70043           dim2001               2002-01-26 16:20  2002.04.22  
Переключиться Eng - Rus


7-70034           Андрей Татуков        2002-01-25 17:05  2002.04.22  
как определить МОДЕЛЬ МОНИТОРА?


3-69700           KAA                   2002-03-29 12:49  2002.04.22  
2000 Заполнить столбец таблицы


1-69828           kserg@ukr.net         2002-04-10 17:12  2002.04.22  
Можно ли в Паскале создавать макроподстановки?


1-69932           inko                  2002-04-09 15:46  2002.04.22  
Значок программы в диалоге.