VPF::Как отловить нажатие на заголовок окна?

MadCoder

Дата 4.8.2009, 13:14 (ссылка)

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

Загрузка ...

Опытный

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

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

Добрый день!

Подскажите пожалуйста, как отловить нажатия мышки на заголовок окна? Хочу сделать так, чтобы при нажатии на заголовок левой кнопкой мышки окно становилось прозрачным, а при отпускании - непрозрачным smile

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

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Snowy

Дата 4.8.2009, 13:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

У формы выставь нужный AlphaBlendValue.
Создай обработчик WM_SYSCOMMAND и пропиши ему следующий код:

Код

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; // обработчик
  end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType = $F012 then // если клик по заголовку
  begin
    AlphaBlend := true; // включить прозрачность
    Application.ProcessMessages;
  end;
  inherited; // вызвать стандартное действие
  AlphaBlend := False; // после чего выключить прозрачность
end;

Ну вот как-то так...

MadCoder

Дата 4.8.2009, 17:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо!

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

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

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