VPF::keys - Форум программистов

Rondo

Дата 2.5.2006, 21:19 (ссылка)

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

Загрузка ...

Бывалый

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

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

Хелп!
Подскажите пожалуйста как сделать чтобы форма не закрывалась при нажатии Alt+F4 smile

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

Начинающий кодер

Демо

Дата 2.5.2006, 21:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnWM_SYSCOMMAND(var Message: TMessage); message WM_SYSCOMMAND;
  end;

Код


procedure TForm1.OnWM_SYSCOMMAND(var Message: TMessage);
begin
  if ((Message.WParam and $FFF0) = SC_MINIMIZE) then
  begin
    Application.Minimize;
    Message.Result := 0;
  end
  else inherited;
end;

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

Rondo

Дата 2.5.2006, 21:28 (ссылка)

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

Загрузка ...

Бывалый

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

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

А можно это сделать на событии OnKeyPress?
Типа.. отменить действие?

Это сообщение отредактировал(а) Rondo - 2.5.2006, 21:29

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

Начинающий кодер

ShadeSt

Дата 3.5.2006, 08:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Событие формы OnClose:

Код


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

Только при этом она вообще закрываться перестанет.
Если интересует именно по комбинации клавиш Alt+F4 то ловить кнопки.

Код


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    MyCanClose : Boolean;
  public
    { Public declarations }
  end;

.....

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyCanClose := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  MyCanClose := Not ((shift = [ssAlt]) and (key = vk_F4));
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose   := MyCanClose;
  MyCanClose := True;
end;

Это сообщение отредактировал(а) ShadeSt - 3.5.2006, 08:54

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

~FoX~

Дата 3.5.2006, 09:06 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Цитата(Rondo @ 2.5.2006, 22:28

)

А можно это сделать на событии OnKeyPress?

Нет, а вот по OnKeyDown

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key = 115) and (Shift = [ssAlt]) Then Key := 0;
  .......

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

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

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