LMDRichEdit TLMDSelectionType

Comments

• Eugene Balabuev (LMD)

  April 2024

  Your question is too general. This is one of the properties, which describes rich edit current state. An application can use it to show/hide or enable/disable some actions or menu items, for example.
• gregory pannet

  April 2024 edited April 2024

  hello, yes it is for this purpose that I would like to use this function.

  I can't use this function, how to encapsulate RichEdit.SelectionType & TLMDRichSelection.

  
  

  // TPopUpMenu OnPopup

  procedure TForm.PopUpRichPopup(Sender: TObject);

  begin

    case RichEdit.SelectionType of

      stText:

        ShowMessage('Text');

      stObject:

        ShowMessage('Object');

      stMultiChar:

        ShowMessage('MultiChar');

      stMultiObject:

        ShowMessage('MultiObject');

    end;

  end;

  
  

  or

  if RichEdit.SelectionType = TLMDRichSelection.stText then

  
  

  Thanks a lot

  
  
• Eugene Balabuev (LMD)

  April 2024

  SelectionType is a set property, you can read more here:

  
  

  https://docwiki.embarcadero.com/RADStudio/Sydney/en/Structured_Types_(Delphi)#Sets
  

  
  

  So, several flags can be set simultaneously, and you can check for them like this:

  
  

  procedure TForm.PopUpRichPopup(Sender: TObject);

  begin

    if stText in RichEdit.SelectionType then

      ShowMessage('Text');

    if stObject in RichEdit.SelectionType then

      ShowMessage('Object');

    if stMultiChar in RichEdit.SelectionType then

      ShowMessage('MultiChar');

    if stMultiObject in RichEdit.SelectionType then

      ShowMessage('MultiObject');

  end;
  

  
  

  or like this:

  
  

  procedure TForm.PopUpRichPopup(Sender: TObject);

  begin

    if RichEdit.SelectionType = [stText, stObject] then

      ShowMessage('Text and object');

  end;
  
• gregory pannet

  April 2024

  I think I found

  
  

    if RichEdit.SelectionType = [stText, stMultiChar] then

        ShowMessage('Text')

    else if RichEdit.SelectionType = [stObject] then

        ShowMessage('Object');