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

Форма без заголовка, без рамки, но может изменять размеры?   Найти похожие ветки 

← →
Артем К.   (2004-07-08 08:05) [0]

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

---

← →
basic   (2004-07-08 08:19) [1]

а BorderStyle какой?

---

← →
КаПиБаРа ©   (2004-07-08 08:21) [2]

Возможно

---

← →
Артем К.   (2004-07-08 08:24) [3]

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

---

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

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

---

← →
Артем К.   (2004-07-08 09:11) [5]

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

---

← →
ssk ©   (2004-07-08 09:26) [6]

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


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:32) [7]

>> ssk Спасибо!

---

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

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



Память: 0.46 MB
Время: 0.025 c