Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

BorderStyle bsDialog + bsSizeable [D7, WinXP]

k@rt © (2005-01-30 20:18:00)
Мне надо, чтобы окно было стиля bsDialog, только что бы размер его менять можно было. Как это сделать?

P.N.P. (2005-02-01 20:56:00) [1]
Посмотри про отрисовку своей кнопки:
http://delphiworld.narod.ru/base/four_buttons.html

k@rt (2005-02-01 20:49:00) [2]
Больше нет ни у кого идей?

k@rt (2005-01-31 12:21:00) [3]
a.denisov (31.01.05 01:49) [10]
А не знаю, просто хочу, чтобы ее не было =)

a.denisov (2005-01-31 01:49:00) [4]
Хотя нет, не получится. Чего тебе иконка не нравится?-))

a.denisov (2005-01-31 01:40:00) [5]

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

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

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

Поручик (2005-01-31 00:43:00) [6]
не парься тогда....

K@rt (2005-01-31 00:06:00) [7]
Поручик © (30.01.05 22:14) [6]
Уже лучше, но тогда Крестика закрытия окна справа не будет =(

Поручик (2005-01-30 22:14:00) [8]
Если не ошибаюсь - убери or WS_SYSMENU

K@rt (2005-01-30 22:10:00) [9]
P.N.P.
А как сделать, чтобы еще иконки слева не было?

K@rt (2005-01-30 22:01:00) [10]
a.denisov (30.01.05 21:02) [1]
Неа, там иконка будет =)

K@rt (2005-01-30 22:01:00) [11]
P.N.P. © (30.01.05 21:09) [2]
Спасибо!

P.N.P. (2005-01-30 21:09:00) [12]
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;

Подойдет?

a.denisov (2005-01-30 21:02:00) [13]
BorderStyle := bsSizeable;
BorderIcons := [biSystemMenu];

Так сойдет?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »