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

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

Форма без заголовка, без рамки, но может изменять размеры? [D7, WinXP]

Артем К. ©   (2004-07-08 08:05:00) 

Такое возможно?

---

Артем К.   (2004-07-08 09:32:00) [1]

>> ssk Спасибо!

---

ssk   (2004-07-08 09:26:00) [2]

Мне без заголовка такой вариант нравится. Этот пример был дан кем-то здесь же на форуме. Вот только не помню, кем.


procedure FormWithoutCaption(Form: TForm);
var
FSizeCaption: Integer;
begin
 with Form do
   begin
     FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
     SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
     Height:=Height - FSizeCaption;
   end;
end;

---

Артем К.   (2004-07-08 09:11:00) [3]

все верно, но я не смогу изменять размеры формы мышью

---

basic   (2004-07-08 09:07:00) [4]

если bsSizeable то возможно, меняй значение на bsNone, и не парься CreateParams

---

Артем К.   (2004-07-08 08:24:00) [5]

BorderStyle := bsSizeable
Я знаю надо через CreateParams, но не знаю какие WS_ надо ставить

---

КаПиБаРа   (2004-07-08 08:21:00) [6]

Возможно

---

basic   (2004-07-08 08:19:00) [7]

а BorderStyle какой?

---

Наверх