VPF::В место ALT+F4 он делал другое - Форум программистов

Radon

Дата 2.11.2005, 12:28 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня такой вопрос мы знаем что если форма активная и мы нажимаем ALT+F4 тогда эта окно
закроется так мне нужно зделать так чтобы когда нажималось ALT+F4 окно (проги) не закрывалось а делала чтото другое (скажем Showmessage('');)

Это сообщение отредактировал(а) Radon - 2.11.2005, 18:36

Albinos_x

Дата 2.11.2005, 12:45 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

есть компанент HotKey на этот случай

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Alexeis

Дата 2.11.2005, 12:46 (ссылка)

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

Загрузка ...

Амеба

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

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

Цитата

В место ALT+F4 он делал другое

Что бы это значило smile

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

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

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

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

Случайный посетитель

Дата 2.11.2005, 12:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


public
    { Public declarations }
    procedure OnWM_SYSCOMMAND(var Message: TMessage); message WM_SYSCOMMAND;

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;

Rrader

Дата 3.11.2005, 02:42 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Код


type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.

Это сообщение отредактировал(а) Rrader - 3.11.2005, 02:44

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

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

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