Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/17: Рейтинг темы: голосов - 17, средняя оценка - 4.53
AlexDn
0 / 0 / 0
Регистрация: 30.09.2009
Сообщений: 19
1

запрет расширения формы

17.10.2009, 16:08. Просмотров 3553. Ответов 6
Метки нет (Все метки)

хочется через WM_NCLBUTTONDBLCLK, но что то не идёт..

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.WMGetSysCommand(var Message: TMessage);
var Msg: PMsg;
begin
if Msg^.message = WM_NCLBUTTONDBLCLK then
begin
if Msg^.wParam = HTCAPTION then
begin
MessageDlg('дв клик ',mtInformation,[mbOk],0);
end;
end
else Inherited;
end;
прошу заранее отключения кнопок и т.п. не предлагать..)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2009, 16:08
Ответы с готовыми решениями:

Запрет перерисовки формы
Вот кусок кода Perform(WM_SETREDRAW,0,0); for i:=0 to High(ga) do begin if...

Запрет изменения размера формы
Есть программа,и она должна быть всего в 2 режимах:либо свернута в трей,либо развернута на весь...

Запрет на сворачивание формы из панели задач
Доброе время суток! Как сделать так, чтобы пользователь не смог сворачивать программу из панели...

Запрет на изменение расширения
Можно ли на JS сделать такое?

Запрет выполнения скриптов без расширения php
Хз почему при обращении в браузере к файлам например config.php.default он все равно выполняется. я...

6
schdub
Эксперт С++
3047 / 1389 / 421
Регистрация: 19.01.2009
Сообщений: 3,735
Завершенные тесты: 1
17.10.2009, 16:42 2
а зачем так сложно?
Используйте свойство формы Constraints.

Добавлено через 2 минуты
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  // ограничения по высоте
  Constraints.MaxHeight := 600;
  Constraints.MinHeight := 200;
  // ограничения по ширине
  Constraints.MaxWidth := 600;
  Constraints.MinWidth := 200;
end;
1
AlexDn
0 / 0 / 0
Регистрация: 30.09.2009
Сообщений: 19
17.10.2009, 21:14  [ТС] 3
polivets, предложенное выбивает форму в верхний левый угол..
0
schdub
Эксперт С++
3047 / 1389 / 421
Регистрация: 19.01.2009
Сообщений: 3,735
Завершенные тесты: 1
18.10.2009, 10:26 4
Цитата Сообщение от AlexDn Посмотреть сообщение
предложенное выбивает форму
что вы имеете ввиду? Скрин покажите + код.
1
John_Pa9JIbHuK
Добрый самаритянин
1101 / 616 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
18.10.2009, 11:07 5
он имеет в виду что при нажатии на расширение формы она размер свой не изменяет, а просто перемещается в левый верхний угол
0
UniSite
0 / 0 / 0
Регистрация: 13.05.2011
Сообщений: 1
16.05.2011, 22:29 6
а как наложить запрет на расширение формы так чтобы при растягивании на ней компонента image не появлялись полосы прокрутки... и в тоже время окно нельзя было растянуть форму!
0
Arcor
5122 / 1983 / 427
Регистрация: 20.11.2009
Сообщений: 6,596
Записей в блоге: 1
16.05.2011, 22:35 7
Цитата Сообщение от schdub Посмотреть сообщение
а зачем так сложно?
Используйте свойство формы Constraints.

Добавлено через 2 минуты
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  // ограничения по высоте
  Constraints.MaxHeight := 600;
  Constraints.MinHeight := 200;
  // ограничения по ширине
  Constraints.MaxWidth := 600;
  Constraints.MinWidth := 200;
end;
а зачем так сложно?

Delphi
1
2
3
4
5
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize := False;
end;
1
16.05.2011, 22:35
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2011, 22:35

Расширения и обычные формы
Доброе утро я запутался, прошу помочь. Есть : БП 2.0 ( обычные формы ) . обновления до бп 3.0 не...

Запрет на отправку формы
Здравствуйте. Кто может, объясните. Почему при нажатии на кнопку <form...

запрет на растягивание формы
есть ли какой код который запрещает растягивать форму?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru