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

Previous  Top  Next

    
 

 

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

Code:

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;

 

 

 

©Drkb::00426

       

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