| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
BorderStyle
NAlexey © (2003-03-11 14:06:00)Какой ф-цией можно изменить стиль формы, например как Form1.BorderStyle := bsSingle;
NAlexey (2003-03-11 16:38:00) [1]Только сверху она под заголовком окна... Короче по ClientRect.
NAlexey (2003-03-11 16:37:00) [2]Нет, я может неправильно выразился, именно непрорисовывающаяся область. Например это MDIChild, после таких действий берем его за заголовок и один бок засовываем за кромку основного окна, так вот когда высовываем:) остается непрорисованная полоска с той стороны и сверху и снизу настолько насколько задвинули - именно непрорисовывающаяся... ???
Clickmaker (2003-03-11 16:31:00) [3]RedrawWindow(Handle, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_UPDATENOW) ?
NAlexey (2003-03-11 16:26:00) [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 потом вернуть назад, и больше не появляется.
???
NAlexey (2003-03-11 14:13:00) [5]>стиль окна уж тогда,.. :)
Верно...
>Игорь Шевченко ©
Спасибо.
Игорь Шевченко (2003-03-11 14:12:00) [6]SetWindowLong (hWnd, GWL_STYLE, ...)
SetWindowLong (hWnd, GWL_EXSTYLE, ...)
Opuhshii (2003-03-11 14:12:00) [7]стиль окна уж тогда,.. :)
SetWindowLong
| |
