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) ?

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

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

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