Приложение Delphi API

[BOBAH13]

Приветствую. Обычно делал контролы в VCL, а вот щас надо сделать в Win API. Ну создал окно (CreateWindowEx) по рисовал малек, получил допустим кнопку. Есть мой класс

var
  WndClass: TWndClass = (
    style: CS_DBLCLKS;
    cbClsExtra: 0;
    cbWndExtra: 0;
    hbrBackground: 0;
    lpszMenuName: NIL;
    lpszClassName: WndClassName;
  );

WndClass.lpfnWndProc := @WindowProc;
  WndClass.hInstance := HInstance;
  WndClass.hIcon := LoadIcon(HInstance, 'MAINICON');
  WndClass.hCursor := LoadCursor(0, IDC_ARROW);
  Windows.RegisterClass(WndClass);

В WindowProc вызываается DefProc (WIndows.pas) ну и обрабатываются мои сообщения. Дело в том, что к примеру WM_LBUTTONUP ну вот я получил сообщение что на мое окно нажали (допустим окно-контрол-кнопка) потом, увели мышь (что странно так же, TrackMouseEvent, не возвращает WM_MOUSELEAVE, возвращает только если на мое окно не нажали) а потом отпустили кнопку мыши. Поидее окно должно получить WM_LBUTTONUP но не получает его, и соотвественно глюки.

В VCL я получал обработку WM_LBUTTONUP если даже за окном отпустили мышь (но нажата была она в окне).

Что делать ? Кто подскажет.

[rpy3uH]

в родительском окне при получении сообщения WM_LBUTTONUP, отправлять его всем дочерним контролам

[BOBAH13]

Всеравно. В оконный обработчик класса (моего зарегестрированного), когда вот нажимаю (приходит WM_LBUTTONDOWN) после отпускаю но не над окном моим, а допустим над рабочим столом, WM_LBUTTONUP не приходит.

function WindowProc(hWnd: HWND; uMessage: UINT; wParam: UINT; lParam: UINT): LRESULT; stdcall;
begin
  if (uMessage = WM_LBUTTONUP) then
  ShowMessage('1');

  Result := DefWindowProc(hWnd, uMessage, wParam, lParam);
end;

......

pd := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_LAYERED,
    WndClass.lpszClassName, NIL, WS_POPUP or WS_VISIBLE, 0, 0, 0, 0, 0, 0, HInstance, NIL);

[alexBlack]

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

...В VCL я получал обработку WM_LBUTTONUP если даже за окном отпустили мышь (но нажата была она в окне).

Что делать ? Кто подскажет.

VCL захватывает курсор при нажатии левой клавиши:

procedure TControl.WMLButtonDown(var Message: TWMLButtonDown);
begin
...
  if csCaptureMouse in ControlStyle then MouseCapture := True; 
  // csCaptureMouse по умолчанию установлен
...
end;

procedure TControl.SetMouseCapture(Value: Boolean);
begin
  if MouseCapture <> Value then
    if Value then SetCaptureControl(Self) else SetCaptureControl(nil);
end;

// И внутри SetCaptureControl
// SetCapture(TWinControl(Control).Handle)

[BOBAH13]

Благодарю Вы очень мне помогли