Наполовину активное окно

Как сделать так, чтобы окно было неактивно? Вы скажите: "Ничего сложного. Нужно только свойство окна Enabled установить в false"... но, так как окно является владельцем компонентов, находящихся на нём, то и все компоненты станут неактивными! Но был найден способ избежать этого!

private

 { Private declarations }

 procedure WMNCHitTest (var M: TWMNCHitTest); message wm_NCHitTest;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);

begin

 if M.Result = htClient then

  M.Result := htCaption;

end;


Взято с http://delphiworld.narod.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...