Формы

← →
Думкин (2003-01-20 06:35) [0]

Мне нужна форма с изменяемыми размерами, но без стандартного заголовка.
я делал так:
1. обрабатывал сообщение WM_NCPAINT - но во время перемещения или изменения размеров всплывала стандартная раскраска.
2. Делал рабочим регионом окна клиентскую область - проблемы с изменениями размеров - трудно словить курсор на изменение.
3. Реализации с bsNone - видел, но у них не отрабатывался режим Windows - "не показывать содержимое при перетаскивнии".

Возможно, кто-то сталкивался с подобным и может чем-нибудь помочь.
Заранее благодарен.

← →
Nick_N_A (2003-01-20 06:53) [1]

Попробуй
windows.SetParent(Panel1.Handle,0);

Panel1.BeginDrag(True);

← →
MBo (2003-01-20 06:54) [2]

пример из Кэнту (Label1 - вместо заголовка)
procedure TForm1.CreateParams (var Params: TCreateParams); begin inherited CreateParams (Params); Params.Style := (Params.Style or ws_Popup) and not ws_Caption; end; procedure TForm1.HitTest(var Msg: TWmNcHitTest); begin inherited; if (Msg.Result = htClient) and (Msg.YPos < Label1.Height + Top + GetSystemMetrics (sm_cyFrame)) then Msg.Result := htCaption; end;

← →
Юрий Зотов (2003-01-20 06:58) [3]

SetWindowLong(Handle, GWL_STYLE,
GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);

← →
Думкин (2003-01-20 07:03) [4]

Спасибо большое, - а то вчера без сети - дома копал, копал - и ничего не выкопал, кроме п1-2.

Формы Найти похожие ветки