BorderStyle bsDialog + bsSizeable

← →
k@rt © (2005-01-30 20:18) [0]

Мне надо, чтобы окно было стиля bsDialog, только что бы размер его менять можно было. Как это сделать?

← →
a.denisov (2005-01-30 21:02) [1]

BorderStyle := bsSizeable;
BorderIcons := [biSystemMenu];

Так сойдет?

← →
P.N.P. © (2005-01-30 21:09) [2]

type TForm1 = class(TForm) protected procedure CreateParams(var Params: TCreateParams); override; .... procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := (WS_CAPTION or WS_THICKFRAME or WS_SYSMENU or WS_BORDER or WS_DLGFRAME); end;

Подойдет?

← →
K@rt © (2005-01-30 22:01) [3]

a.denisov (30.01.05 21:02) [1]
Неа, там иконка будет =)

← →
K@rt © (2005-01-30 22:01) [4]

P.N.P. © (30.01.05 21:09) [2]
Спасибо!

← →
K@rt © (2005-01-30 22:10) [5]

P.N.P.
А как сделать, чтобы еще иконки слева не было?

← →
Поручик © (2005-01-30 22:14) [6]

Если не ошибаюсь - убери or WS_SYSMENU

← →
K@rt © (2005-01-31 00:06) [7]

Поручик © (30.01.05 22:14) [6]
Уже лучше, но тогда Крестика закрытия окна справа не будет =(

← →
Поручик © (2005-01-31 00:43) [8]

не парься тогда....

← →
a.denisov (2005-01-31 01:40) [9]

> Поручик © (30.01.05 22:14) [6]

Тогда закрываться не будет)))

Сделай bsDialog и перепиши WM_NCHITTEST. Чето ничего на ум не приходит, спать пора)

← →
a.denisov (2005-01-31 01:49) [10]

Хотя нет, не получится. Чего тебе иконка не нравится?-))

a.denisov (31.01.05 01:49) [10]
А не знаю, просто хочу, чтобы ее не было =)

Больше нет ни у кого идей?

Посмотри про отрисовку своей кнопки:
http://delphiworld.narod.ru/base/four_buttons.html

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