VPF::Предохранить форму от сворачивания

barrbos

Дата 12.1.2010, 03:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Здраствуйте!
вообще нужна ваша помощь в делфи не селен но чень надо (ну как обычно smile

) нужно запретить форме сворачивацо
код наешл но как правельно вписать его не знаю

Код


implementation

 procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
 begin
   if not Msg.Show then
     Msg.Result := 0
   else
     inherited;
 end;

если просто вставляю то пишет ошибку ... помогите пожалуйста

Это сообщение отредактировал(а) bems - 12.1.2010, 19:38

bems

Дата 12.1.2010, 19:40 (ссылка)

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

Загрузка ...

Эксперт

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

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

M
bems

Кнопка КОД справа над полем быстрого ответа. И албантцкей уже года два как не в моде

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

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

~FoX~

Дата 12.1.2010, 20:52 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

barrbos, Объявить надо

Код


type
  TForm1 = class(TForm)
  private
    procedure WMShowWindow(var Msg: TWMShowWindow); message WM_SHOWWINDOW; //например тут
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
  if not Msg.Show then Msg.Result := 0
  else inherited;
end;

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

…множественность никогда не следует полагать без необходимости…

Andreyzpr

Дата 14.1.2010, 15:47 (ссылка)

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

Загрузка ...

Бывалый

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

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

А можно как то сделать, что бы форма не сворачивалась при нажатии на "Свернуть все окна" ?

bems

Дата 14.1.2010, 18:31 (ссылка)

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

Загрузка ...

Эксперт

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

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

Andreyzpr
1. Не делай этого. Если юзер хочет свернуть, у него должна быть такая возможность.
2. Один топик - один вопрос
3. Уже осуждалось.

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

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

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