RomanTim
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
type
TForm2 = class(TForm)
procedure FormHide(Sender: TObject);
private
FShowAction: TShowAction;
procedure WM_ShowWindow(var Message: TWMShowWindow); message WM_SHOWWINDOW;
....
procedure TForm2.FormHide(Sender: TObject);
begin
FShowAction := saIgnore;
end;
procedure TForm2.WM_ShowWindow(var Message: TWMShowWindow);
const
ShowCommands: array[saRestore..saMaximize] of Integer =
(SW_SHOWNOACTIVATE, SW_SHOWMINNOACTIVE, SW_SHOWMAXIMIZED);
begin
with Message do
case Status of
SW_PARENTCLOSING:
begin
if IsIconic(Handle) then
FShowAction := saMinimize
else if IsZoomed(Handle) then
FShowAction := saMaximize
else
FShowAction := saRestore;
inherited;
end;
SW_PARENTOPENING:
if FShowAction <> saIgnore then
begin
ShowWindow(Handle, ShowCommands[FShowAction]);
FShowAction := saIgnore;
end;
else
inherited;
PBoolean(@Visible)^ := Message.Show;
end;
end;
|
Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 21:46 05-09-2006 | Исправлено: RomanTim, 22:06 05-09-2006 |
|
