Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Как отловить нажатие на заголовок окна?


Автор: MadCoder 4.8.2009, 13:14
Добрый день!

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

Автор: Snowy 4.8.2009, 13:30
У формы выставь нужный 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
Спасибо!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)