VPF::Не дать форме уменьшить размер

CrazyPiggy

Дата 30.1.2009, 10:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день. У меня такая проблем. Я создаю главную форму Maximized. Но в процессе работы с программой при двойном щелчке по меню или заголовку форма уменьшается. Уже и не знаю что с ней делать. Ведь я ей ставлю windowstate=wsMaximized почему она уменьшается? smile

Да и ещё вопрос как в главной форме при переключении между другими окнами проекта определить момент переключения и какая форма сейчас активна?

Это сообщение отредактировал(а) CrazyPiggy - 30.1.2009, 10:49

MacTep

Дата 30.1.2009, 11:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(CrazyPiggy @ 30.1.2009, 10:44

)

Ведь я ей ставлю windowstate=wsMaximized почему она уменьшается?

Начальное ее состояние - максимизированная форма, что ты и видишь при старте приложения. А дальше... Кто сказал, что ты не можешь потом ее уменьшить? Чтобы не давать форме уменьшить размер - нужно отлавливать сообщение на минимизацию окна.

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

CrazyPiggy

Дата 30.1.2009, 11:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(MacTep @ 30.1.2009, 11:02)

Чтобы не давать форме уменьшить размер - нужно отлавливать сообщение на минимизацию окна.

private

Код


    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

   {...}
 implementation


 procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
 begin
   if ((Msg.CmdType and $FFF0) = SC_MINIMIZE) or  ((Msg.CmdType and $FFF0) = SC_SIZE) then
   begin
     Msg.Result := 0;
     Exit;
   end;
   inherited;
 end;

делаю так все равно окно уменьшается в размерах. smile

Это сообщение отредактировал(а) Alexeis - 31.1.2009, 13:38

Rrader

Дата 30.1.2009, 11:43 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    procedure WMNCLButtonDblClk(var Msg: TWMNCLButtonDblClk);
      message WM_NCLBUTTONDBLCLK;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_RESTORE, SC_MINIMIZE: Msg.Result := 0;
  else 
    inherited;
  end;
end;

procedure TForm1.WMNCLButtonDblClk(var Msg: TWMNCLButtonDblClk);
begin
  Msg.Result := 0;
  if Msg.HitTest <> HTCAPTION then
    inherited;
end;

end.

Это сообщение отредактировал(а) Rrader - 30.1.2009, 11:46

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

Let's do this quickly!
Rest in peace, Vit!

Shaggy

Дата 31.1.2009, 01:16 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

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

Цитата(CrazyPiggy @ 30.1.2009, 12:44

)

и какая форма сейчас активна?

Screen.OnActiveFormChange

Akella

Дата 31.1.2009, 14:07 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

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

Цитата(CrazyPiggy @ 30.1.2009, 10:44

)

Но в процессе работы с программой при двойном щелчке по меню или заголовку форма уменьшается. Уже и не знаю что с ней делать.

ну так, на вскидку... а OnResize?

Alexeis

Дата 31.1.2009, 14:47 (ссылка)

(голосов:1)

Загрузка ...

Амеба

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

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

Если важно, только то чтобы форма была размером с экран, то еще такой вариант.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  Constraints.MaxWidth  := Screen.Width;
  Constraints.MaxHeight := Screen.Height;
  Constraints.MinWidth  := Screen.Width;
  Constraints.MinHeight := Screen.Height;
end;

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

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

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

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

bems

Дата 31.1.2009, 16:43 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Вообще нужны веские причины чтобы так делать. Есть очень многоие юзеры для которых окно, которое нельзя уменьшить это достаточная причина чтобы снести программу. И раз уж ты так делаешь, то тебе нужно менять Constraints по размеру экрана каждый раз при смене разрешения (лови WM_SETTINGCHANGE)

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

Обижено школьников: 8

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