Сообщение WM_NCLBUTTONUP

[VladimirVB]

Здравствуйте. Я хочу сделать форму прозрачной при щелчке по заголовке формы. При отпускании кнопки мыши форма восстанавливает свое состояние. Проблема в том, что обработка сообщения WM_NCLBUTTONUP срабатывает только, если форма полноэкранная. А если нет то, сообщение не обрабатывается. КАК ЗАСТАВИТЬ ПРОЦЕДУРУ WMNCLButtonUp СРАБАТЫВАТЬ ПРИ ЛЮБОМ ВИДЕ ОКНА. Спасибо за ответ.

Исходный код:

private
    { Private declarations }
    procedure WMNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure WMNCLButtonUp(var Msg: TWMNCLButtonUp); message WM_NCLBUTTONUP;
...
procedure TForm1.WMNCLButtonDown(var Msg: TWMNCLButtonDown);
begin
  inherited;
  AlphaBlendValue := 127;
end;

procedure TForm1.WMNCLButtonUp(var Msg: TWMNCLButtonUp);
begin
  inherited;
  AlphaBlendValue := 255;
end;

[ViktorXP]

событие WM_NCLBUTTONUP кажись с TWinControl вырублено. в справочной системе об этом тишина но в какомто модуле в коментах очерком написано что это не работает.
Ставь локальный хук, хотя это глупость но походу другого выходя просто нет. (но может другие люди подтянутся и найдут выход)

перехватывай событие WM_NCMOUSEMOVE оно 100% сработает после отпускание кнопки (даже без перемишение самой мыши), но также оно будет срабатывать и до (недостатки есть всегада, нужно главное знать про их), главное оно не срабатывает во время перетаскивания формы

[Nester]

Кривовато но работает

[VladimirVB]

Этот пример я взял из книги "Занимательное программирование на Visual Basic.NET" Александра Климова. И на VB.NET все работает нормально. Правда реализовано через переопределение оконной процедуры WndProc

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
'Если нажата левая кнопка мыши на заголовке формы
If CLng(m.Msg) = WM_NCLBUTTONDOWN Then
'Устанавливаем степень прозрачности формы
If Me.Opacity <> 0.5 Then Me.Opacity = 0.5
'Кнопка отпущена
ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then
If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
End If
MyBase.WndProc(m)
End Sub

Получается, что Delphi кривоват в этом вопросе.

[ViktorXP]

Тут прикол в самой винде.
Зделал форму через ВинАпи и результат тотже
повторил то что я делал на VC и опять тотже результат
посути дело в стандартной обработке, если ее не обрабатывать то тогда все работает но окно не двигается и игнорируются системные кнопки, а вот если обрабатывать то все реагирует но сообщение о отпускании кнопки не срабатывает. Корявость винды

[Alter]

Может так сойдёт:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
   procedure WMNCHitTest(var M:TWMNCHitTest);message wm_NCHitTest;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htCaption then
   AlphaBlendValue := 127
  else
   AlphaBlendValue := 255;;
end;

end.

Поднимание ЛКМыши нереагирует, поэтому убрал эти процедуры, толку от них при таскании за заголовок.