Скачать: CL | DM;

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

← →
Думкин ©   (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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c