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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Как сделать так, чтобы окно было неактивно? Вы скажите: «Ничего сложного. Нужно только свойство окна 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;

{/codecitation}

Добавить комментарий