| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Формы

Думкин ©   (2003-01-20 06:35:00) 

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

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

---

Думкин   (2003-01-20 07:03:00) [1]

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

---

Юрий Зотов   (2003-01-20 06:58:00) [2]

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

---

MBo   (2003-01-20 06:54:00) [3]

пример из Кэнту (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;

---

Nick_N_A   (2003-01-20 06:53:00) [4]

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

Panel1.BeginDrag(True);

---

Наверх