procedure TNxPopupControl6.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if psClosing in FPopupState then Exit; inherited; if FMouseDown and PtInRect(ClientRect, Point(X, Y)) then begin { Set State } Include(FPopupState, psClosing); if Assigned(DropDown) then begin { Close & Destroy } if Assigned(DropDown) then DropDown.DroppedDown := False; Exit; end; end else if PtInRect(ControlRect, Point(X, Y)) then begin end else SetCaptureControl(Self); FMouseDown := False; { ! } end;
The above was changed, but there still might be issues because it still crashes sometimes.