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

BorderStyle   Найти похожие ветки 

← →
NAlexey ©   (2003-03-11 14:06) [0]

Какой ф-цией можно изменить стиль формы, например как Form1.BorderStyle := bsSingle;

---

← →
Игорь Шевченко ©   (2003-03-11 14:12) [1]

SetWindowLong (hWnd, GWL_STYLE, ...)
SetWindowLong (hWnd, GWL_EXSTYLE, ...)

---

← →
Opuhshii ©   (2003-03-11 14:12) [2]

стиль окна уж тогда,.. :)
SetWindowLong

---

← →
NAlexey ©   (2003-03-11 14:13) [3]

>стиль окна уж тогда,.. :)
Верно...
>Игорь Шевченко ©
Спасибо.

---

← →
NAlexey ©   (2003-03-11 16:26) [4]


ExStyle := GetWindowLong(TForm(Control).Handle, GWL_STYLE);
ExStyle := ExStyle and (not WS_THICKFRAME) and (not WS_SIZEBOX);
SetWindowLong(TForm(Control).Handle, GWL_STYLE ,ExStyle);

Почемуто получается непрорисовывающаяся область по периметру формы шириной ~1px. Исчезает если сделать MAXIMIZE потом вернуть назад, и больше не появляется.
???

---

← →
Clickmaker ©   (2003-03-11 16:31) [5]

RedrawWindow(Handle, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW) ?

---

← →
NAlexey ©   (2003-03-11 16:37) [6]

Нет, я может неправильно выразился, именно непрорисовывающаяся область. Например это MDIChild, после таких действий берем его за заголовок и один бок засовываем за кромку основного окна, так вот когда высовываем:) остается непрорисованная полоска с той стороны и сверху и снизу настолько насколько задвинули - именно непрорисовывающаяся... ???

---

← →
NAlexey ©   (2003-03-11 16:38) [7]

Только сверху она под заголовком окна... Короче по ClientRect.

---

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

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



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