Перемещение окна вне заголовка 2

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

Нужно объявить процедуру в частных объявлениям (после ключевого слова Private):

private

{ Private declarations }

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

В области implementation описываем процедуру так:

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);

begin

inherited;

if M.Result = htClient then

M.Result := htCaption;

end;

Мы выдаём клиентскую область окна за заголовочную область.

{/codecitation}

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