Разъсяните код

[Черничный]

Прани, вот нашел код один, который убирает у формы заголовок(синиюю полосу):

Это в паблик
procedure CreateParams (var Params: TCreateParams); override;
procedure WMNCHitTest (var Msg: TWMNCHitTest);
message wm_NcHitTest;

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams (Params);
Params.Style := (Params.Style or ws_Popup) and
not ws_Caption;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if (Msg.Result = htClient) and (Msg.YPos <Label1.Height + Top + GetSystemMetrics (sm_cyFrame)) then
Msg.Result := htCaption;
end;


Все круто. работает, но ничего здесь не понимаю! Мож кто понимает, разъясните мне по коментариям, спасиб.

[Stilet]

Ну в целом здесь переопределяется стандартная Делфовая процедура CreateParams, которая обычно задает параметры для создаваемого окна, типа заголовки, границы, стили... Вот из набора параметров стиля окна (Params.Style) удаляется заголовок (...and not ws_Caption).
А чтоб ее таскать можно было отлавливается сообщение wm_NcHitTest.

P.S.Задачи не знаю но данный момент сделал бы по другому...