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

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]

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

---

← →
k@rt ©   (2005-01-31 12:21) [11]

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

---

← →
k@rt ©   (2005-02-01 20:49) [12]

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

---

← →
P.N.P. ©   (2005-02-01 20:56) [13]

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

---

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

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



Память: 0.47 MB
Время: 0.022 c