Не происходит событие отжатия кнопки мыши

[Шамсуддин]

Добрый день! Возникла, довольно-таки, интересная проблема. Если по нажатию на элемент listbox мышью, реализовать всплывающее окно типа ShowMessage, то событие отжатия кнопки на контроле, в котором мы нажали не произойдет. Это заметно, по тому, как после закрытия ShowMessage, навести на listbox, то он продолжит выбирать элемент, также как, если мы это сделали бы удержав кнопку мыши на нем и начали бы проводить курсором по ней. Можно ли как-нибудь исправить это?

Изменено 22 июня, 2018 пользователем Шамсуддин

[AngryOwl]

Можно. Используйте события не OnClick или OnItemClick и т.д., а событие OnMouseUp у самого TListBox.

Типа так:

procedure TfmMain.lbxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  LI : TListBoxItem;
  p : TPointF;
begin
  if Assigned(Sender as TListBox) then
  begin
    LI := TListBox(Sender).ItemByPoint(X, Y);

    if Assigned(LI as TListBoxItem) then
    begin
      LI.IsSelected := True;

      TTask.Run(procedure
      begin
        if Button = TMouseButton.mbLeft then
          Do_какая-то_процедура(LI.Index) // просто пример
          else
          if Button = TMouseButton.mbRight then
            TThread.Synchronize(nil, procedure
            begin
              p := MessageEvent.GetMousePos;
              PopupMenu1.Popup(p.X, p.Y); // для вызова контекстного меню выделенного ListBoxItem
            end);
      end);
    end;
  end;
end;

P.S. Отмечу, что использовал TTask и TThread.Synchronize далеко не случайно!

Во-первых TTask.Run запустит ваш обработчик нажатия на выделенный элемент в отдельном потоке, что не будет "тормозить" "выделение" самого ListBoxItem и вообще), а во-вторых - "внутри" вызванного потока сделал синхронизацию с основным потоком, при выводе контекстного меню для ListBoxItem, так как это гарантирует корректную работу с GUI в FMX.

Изменено 11 января, 2017 пользователем AlexG

[GASCHE]

7 часов назад, AlexG сказал:

Во-первых TTask.Run запустит ваш обработчик нажатия на выделенный элемент в отдельном потоке

А переменная Button будет видна в этом отдельном потоке в случае завершения процедуры lbxMouseUp?

[AngryOwl]

2 минуты назад, GASCHE сказал:

А переменная Button будет видна в этом отдельном потоке в случае завершения процедуры lbxMouseUp?

Да