An Error in procedure Deselect

Return to index

Author

Message

hpsmall

Posted: 05/04/2004 8:13:47

procedure TRVControlData.Deselect(NewPartiallySelected: TCustomRVItemInfo;

MakeEvent: Boolean);

begin

  if rvstDeselecting in State then

    exit;

  State := State + [rvstDeselecting];

  try

    ClearFocus;

    if TopLevelFocusedItemNo<>-1 then

      Invalidate;

    TopLevelFocusedItemNo := -1;

    TopLevelFocusedRVData := nil;

  finally

    State := State - [rvstDeselecting];

  end;

  inherited Deselect(NewPartiallySelected, MakeEvent);

end;

"inherited Deselect(NewPartiallySelected, MakeEvent); "

may raise exception class EInvalidOperation with message 'Cannot focus a

disabled or invisible window'. Process stopped. Use Step or Run to continue.

How to solve this problem?