Как развернуть дочернее MDI-окно без анимации?

18.04.2007, 19:24. **Показов** 7351. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Подскажите плз, как отключить анимацию при разворачивании дочерних окон в MDI.
Дело в том, что моя прога может открывать сразу много окон, при этом анимация СИЛЬНО тормозит процесс.
Штуки вроде WM_SETREDRAW и LockWindowUpdate не подходят, т.к. имеют неприятные побочные эффекты.

Vourhey · 18.04.2007, 22:13

У дочернего MDI-окна есть свой модуль. Вот туда и пишем наш обработчик восстановления положения окна. Код модуля:

Код

unit CHILDWIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, messages;

type
  TMDIChild = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure WMSYSCOMMAND(var m:TWMSysCommand); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TMDIChild.WMSYSCOMMAND(var m: TWMSysCommand);
begin
if (m.CmdType = SC_RESTORE) then begin  //если восстанавливаем
ShowWindow(handle, SW_HIDE);        //прячем
ShowWindow(handle, SW_SHOWNORMAL);   //показываем
end
else
inherited;     //зовем папу на помощь
end;

end.

Dima63
		1
	Как развернуть дочернее MDI-окно без анимации? 18.04.2007, 19:24. Показов 7351. Ответов 1 Метки нет (Все метки) Подскажите плз, как отключить анимацию при разворачивании дочерних окон в MDI. Дело в том, что моя прога может открывать сразу много окон, при этом анимация СИЛЬНО тормозит процесс. Штуки вроде WM_SETREDRAW и LockWindowUpdate не подходят, т.к. имеют неприятные побочные эффекты.

	18.04.2007, 22:13