Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Ноя

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

Posted by maloy under Delphi, Win 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 если даже за окном отпустили мышь (но нажата была она в окне).
Что делать ? Кто подскажет.

alexBlack

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)

тема на форуме от 2009 года