Как проверить, является ли элемент управления элементом RichEdit

Используйте Win32 API GetClassName() или _ 2_ (см. Чем отличается RealGetWindowClass более реальным, чем GetClassName?), а затем проверьте результат для различных доступных имен классов RichEdit:

• 'RICHEDIT' (1.0)
• 'RICHEDIT20A' or 'RICHEDIT20W' (2.x+)
• 'RICHEDIT50W' (4.1)
• 'TRichEdit' (оболочка VCL)
• и так далее для сторонних оболочек.

Спасибо всем за отзывы. Я думаю, что нет способа получить имя класса Windows для TWinControl.

Вот еще одна версия IsRichEdit, модифицированная по сравнению с версией JamesB:

type TWinControlAccess = class(TWinControl);

function IsRichEdit(C: TWinControl): boolean;

const A: array[0..8] of string = (
           'RICHEDIT',
           'RICHEDIT20A', 'RICHEDIT20W',
           'RICHEDIT30A', 'RICHEDIT30W',
           'RICHEDIT41A', 'RICHEDIT41W',
           'RICHEDIT50A', 'RICHEDIT50W'
          );

var Info: TWNDClass;
    p: pointer;
    s: string;
begin
  p := TWinControlAccess(C).DefWndProc;

  Result := False;

  for s in A do begin
    if GetClassInfo(HInstance, PChar(s), Info) and (Info.lpfnWndProc = p) then begin
      Result := True;
      Break;
    end;
  end;
end;

Мы можем изменить массив A, если есть более новая версия класса RichEdit из Windows.

Другое возможное, но рискованное решение - я просто проверяю, содержит ли имя класса VCL элемента управления строку RichEdit, поскольку класс VCL с почти расширенным редактированием от Delphi или сторонних поставщиков так называет элементы управления.

Я что-то упускаю? Разве это не просто тест:

if (MyControl is TRichEdit)

or

if (MyControl is TCustomRichEdit)

Вы могли бы использовать

 function GetClassInfo(hInstance: HINST; lpClassName: PChar;  var lpWndClass: TWndClass): BOOL;

Я думаю, это то, что Реми пытался сделать.

что-то типа:

Function IsRichEdit(MyControl : TWinControl):Boolean;
var 
    Info : TWNDClass;
begin
    Result := False;
    if GetClassInfo(HInstance,PCHAR('RICHEDIT'),Info) and (Info.lpfnWndProc = MyControl.DefWndProc) then 
        Result := True
    else if GetClassInfo(HInstance,PCHAR('RICHEDIT20A'),Info) and (Info.lpfnWndProc = MyControl.DefWndProc)  then 
        Result := True
    else if GetClassInfo(HInstance,PCHAR('RICHEDIT30A'),Info) and (Info.lpfnWndProc = MyControl.DefWndProc)  then 
        Result := True
    else if GetClassInfo(HInstance,PCHAR('RICHEDIT41A'),Info) and (Info.lpfnWndProc = MyControl.DefWndProc)  then 
        Result := True
    else if GetClassInfo(HInstance,PCHAR('RICHEDIT50A'),Info) and (Info.lpfnWndProc = MyControl.DefWndProc)  then 
        Result := True
end;

Если вы используете Delphi> 2007, вам может потребоваться протестировать версии 'W' (unicode), например, RICHEDIT20W.

Изменить: добавлен тест Info.WndProc для соответствия элементу управления.

Как ни странно, это не сработает для cxControls, поскольку cxRichEdit не является элементом управления, использующим окно расширенного редактирования (это содержание, поэтому вам нужно будет передать cxControl.InnerControl, чтобы он вернул true).

Изменить. Я не мог заставить это работать больше, чем для первого созданного элемента управления richedit.