Форма прозрачная для кликов

[NEoMASTERR]

Здравствуйте, есть такая программа StreamChat для стримеров, она создает полупрозрачное окошко и в нём виден чат, и клики проходят сквозь окно, и любые действия. Если зажать ctrl + shift и мышкой кликнуть в окно то можно его перемещать и тд. Как реализовать такое? Исходник есть но он на питоне, интересует вариант делфи. Находил пример с добавлением параметра в CreateParams но не пойму как изменить этот параметр на лету, т.е. убрать его с формы чтоб она на время стала кликабельной. Хочу сделать вроде что то окошка для заметок, считаю что очень удобным будет
сорц - https://sourceforge.net/projects/streamchat/

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams (Params);
  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

после этого сообщения не перехватываются и отлавливать через getasynckeystate думаю - нелепо. Интересует правильный подход в таком случае.

[Iron Monk]

В CreateForm:

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT );

[NEoMASTERR]

Большое спасибо)

[Filka]

unit Unit1;

interface

uses
  // стандартные модули

const
  WH_KEYBOARD_LL = 13;
  LLKHF_UP = $80;

type
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: Int64;
  end;

  TKbdHandler = procedure(P: PKBDLLHOOKSTRUCT) of object;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FTransparentClicks: Boolean;
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    procedure HookHandler(P: PKBDLLHOOKSTRUCT);
    procedure StartHook(AHandler: TKbdHandler);
    procedure StopHook;
    procedure SetTransparent;
    procedure SetTransparentClicks(const Value: Boolean);
  public
    property TranparentClicks: Boolean read FTransparentClicks write SetTransparentClicks;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  Hook: HHOOK = 0;
  Handler: TKbdHandler = nil;

function LowLevelKeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if nCode >= 0 then
  begin
    if Assigned(Handler) then
      Handler(Pointer(lParam));
  end;
  Result := CallNextHookEx(Hook, nCode, wParam, lParam);
end;

procedure TForm1.SetTransparentClicks(const Value: Boolean);
begin
  if FTransparentClicks <> Value then
  begin
    FTransparentClicks := Value;
    SetTransparent;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlendValue := 100;
  Color := clHighlight;
  BorderStyle := bsNone;
  FormStyle := fsStayOnTop;
  TranparentClicks := True;
  StartHook(HookHandler);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  StopHook;
end;

procedure TForm1.StartHook(AHandler: TKbdHandler);
begin
  Handler := AHandler;
  Hook := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, 0, 0);
end;

procedure TForm1.StopHook;
begin
  if Hook <> 0 then
    UnhookWindowsHookEx(Hook);
end;

procedure TForm1.HookHandler(P: PKBDLLHOOKSTRUCT);
begin
  if P^.vkCode = VK_LCONTROL then
    TranparentClicks := (P^.flags and LLKHF_UP) = LLKHF_UP;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = htClient then
    Msg.Result := htCaption;
end;

procedure TForm1.SetTransparent;
var
  AStyle: Integer;
begin
  AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
  case FTransparentClicks of
    True:  AStyle := AStyle or WS_EX_TRANSPARENT;
    False: AStyle := AStyle and not WS_EX_TRANSPARENT;
  end;
  SetWindowLong(Handle, GWL_EXSTYLE, AStyle);
  AlphaBlend := FTransparentClicks;
end;

end.

[Iron Monk]

Сообщение от Filka

unit Unit1;

Чота не помогло...
Я не про таскание за кузов. Я про клик насквозь)))

[Filka]

Сообщение от Iron Monk

Чота не помогло...
Я не про таскание за кузов. Я про клик насквозь)))

В смысле не помогло? Весь код добавляется в модуль главной формы (Form1), потом нажимаем и держим левый Ctrl...

[Iron Monk]

Сообщение от Filka

В смысле не помогло? Весь код добавляется в модуль главной формы (Form1), потом нажимаем и держим левый Ctrl...

Пардонирую, всё работает)))

[Filka]

С помощью CreateParams:

unit Unit1;

interface

uses
  // стандартные модули

const
  WH_KEYBOARD_LL = 13;
  LLKHF_UP = $80;

type
  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
  KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: Int64;
  end;

  TKbdHandler = procedure(P: PKBDLLHOOKSTRUCT) of object;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FTransparentClicks: Boolean;
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    procedure HookHandler(P: PKBDLLHOOKSTRUCT);
    procedure StartHook(AHandler: TKbdHandler);
    procedure StopHook;
    procedure SetTransparentClicks(const Value: Boolean);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    property TransparentClicks: Boolean read FTransparentClicks write SetTransparentClicks;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  Hook: HHOOK = 0;
  Handler: TKbdHandler = nil;

function LowLevelKeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if nCode >= 0 then
  begin
    if Assigned(Handler) then
      Handler(Pointer(lParam));
  end;
  Result := CallNextHookEx(Hook, nCode, wParam, lParam);
end;


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    case FTransparentClicks of
      True:  ExStyle := ExStyle or WS_EX_TRANSPARENT;
      False: ExStyle := ExStyle and not WS_EX_TRANSPARENT;
    end;
  end;
  AlphaBlend := FTransparentClicks;
end;

procedure TForm1.SetTransparentClicks(const Value: Boolean);
begin
  if FTransparentClicks <> Value then
  begin
    FTransparentClicks := Value;
    RecreateWnd;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlendValue := 100;
  Color := clHighlight;
  BorderStyle := bsNone;
  FormStyle := fsStayOnTop;
  TransparentClicks := True;
  StartHook(HookHandler);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  StopHook;
end;

procedure TForm1.StartHook(AHandler: TKbdHandler);
begin
  Handler := AHandler;
  Hook := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, 0, 0);
end;

procedure TForm1.StopHook;
begin
  if Hook <> 0 then
    UnhookWindowsHookEx(Hook);
end;

procedure TForm1.HookHandler(P: PKBDLLHOOKSTRUCT);
begin
  if P^.vkCode = VK_LCONTROL then
    TransparentClicks := (P^.flags and LLKHF_UP) = LLKHF_UP;
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = htClient then
    Msg.Result := htCaption;
end;

end.

[NEoMASTERR]

Как сделать под Ctrl+Shift ?)

[Iron Monk]

Сообщение от NEoMASTERR

Как сделать под Ctrl+Shift ?)

if P^.vkCode = VK_LCONTROL + VK_LSHIFT then