MDI [D5, Win95/98]
roman001 © (2002-04-07 08:09:00)
Доброе утро. Такая проблема: беру fsMDIChild и открываю два
его экземпляра, последний разворачиваю. Потом эго закрываю, а у
первого после этого пропадают кнопки (свернуть, разв...) в
заголовке окна??? Аналогичная картина в стандартном Дельфовом
примере
Игорь Шевченко (2002-04-09 10:40:00) [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;
С уважением,
Наверх 
ЧАТ |
Орешник |
|
