VPF::запрет расширения формы - Форум программистов

AlexDi

Дата 17.10.2009, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

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

Код


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;

Это сообщение отредактировал(а) AlexDi - 17.10.2009, 09:43

MetalFan

Дата 17.10.2009, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

эм... а может убрать из TForm.BorderIcons biMaximize ?

--------------------

There are always someone smarter than you...

Данкинг

Дата 17.10.2009, 10:22 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

BorderStyle = bsSingle ?

--------------------

There's nothing left but silent epitaphs.

AlexDi

Дата 17.10.2009, 10:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

нет нет, кнопки хорошо бы оставить в покое, то то и оно..)

Это сообщение отредактировал(а) AlexDi - 17.10.2009, 10:34

Данкинг

Дата 17.10.2009, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

А зачем нужны кнопки, если результата от нажатия на них всё равно не будет? Ну, попробуй принудительно размеры задавать:

Код


procedure TForm1.FormResize(Sender: TObject);
begin
form1.Height:=150;
form1.Width:=100;
end;

--------------------

There's nothing left but silent epitaphs.

AlexDi

Дата 17.10.2009, 11:37 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

принудительное задание размеров всё равно вызывает скачек формы, что тоже не есть хорошо..)

Keeper89

Дата 17.10.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Код


procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize := False;
end;

Ы?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AlexDi

Дата 17.10.2009, 14:02 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

а из левого угла кто её будет вытаскивать..?), изменение координат опять же сделает мигание..
тут нужно только через SysCommand, видимо..

Akella

Дата 18.10.2009, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

А как же Constraints?

THandle

Дата 18.10.2009, 09:25 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Akella, при использовании этого свойства при нажатии на кнопочку развернуть форма перелетит в верхний левый угол.

Alexeis

Дата 18.10.2009, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Можно использовать диалоговый режим формы. У него нет кнопок свернуть развернуть и размер не позволяет менять отродясь. ИМХО для этого и делался такой режим.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 19.10.2009, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(AlexDi @ 17.10.2009, 10:33

)

нет нет, кнопки хорошо бы оставить в покое, то то и оно..)

А почему? Проку от этих кнопок, если они не работают smile

Добавлено через 1 минуту и 36 секунд
THandle,

Цитата(AlexDi @ 17.10.2009, 14:02

)

а из левого угла кто её будет вытаскивать..?), изменение координат опять же сделает мигание..

Ага, я пропустил это сообщение. Но автор темы мог бы сразу озвучить все условия, а то получается, как часто бывает, условия скажут, а потом остальные из автора ещё вытягивают инфу клещами, как будто это нужно им, а не автору smile

AlexDi

Дата 19.10.2009, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 24.3.2009
Где: ua

Репутация: нет
Всего: нет

спасибо всем, задача решилась вот таким способом..

Код


procedure TForm1.WMGetSysCommand(var Message: TMessage);
begin
         IF (Message.wParam = SC_MAXIMIZE)
     Then {form1.Visible:=False}
     Else begin

     if (Message.wParam = WM_NCLBUTTONDBLCLK) then
      {form1.Visible:=False}
     Else Inherited;
     end;

Это сообщение отредактировал(а) Alexeis - 19.10.2009, 09:10

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »