Текущий архив: 2005.02.20;
Скачать: 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 вся ветка
Текущий архив: 2005.02.20;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.036 c
