Блог

Следующая _isEdit функция определяет, можно ли применить ввод к текущему сфокусированному элементу управления:

 class function TSpeedInput._getFocusedControlClassName(): WideString;
var
  lpClassName: array[0..1000] of WideChar;
begin
  FillChar(lpClassName, SizeOf(lpClassName), 0);
  Windows.GetClassNameW(GetFocus(), PWideChar(@lpClassName), 999);
  Result := lpClassName;
end;

class function TSpeedInput._isEdit(): Boolean;
const
  CNAMES: array[0..3] of string = ('TEdit', 'TMemo', 'TTntMemo.UnicodeClass',
    'TTntEdit.UnicodeClass');
var
  cn: WideString;
  i: Integer;
begin
  Result := False;
  cn := _getFocusedControlClassName();
  for i := Low(CNAMES) to High(CNAMES) do
    if cn = CNAMES[i] then begin
      Result := True;
      Exit;
    end;
  //MessageBoxW(0, PWideChar(cn), nil, 0);
end;
  

Что мне в этом не нравится, так это жесткое кодирование списка имен классов. Можно ли обнаружить, что текущее сфокусированное окно принадлежит к семейству редакторов или, лучше сказать, что оно имеет активную каретку? (в порядке, который _isEdit возвращает False для WhateverItIsControl, который находится в режиме только для чтения).

Если Handle элемент управления выделен, вы можете использовать этот хак:

 function IsEdit(AControl: TWinControl): boolean;
begin
    if AControl.HandleAllocated then
    begin
        Result := SendMessage(AControl.Handle, EM_SETREADONLY,
            WPARAM(Ord(AControl.Enabled)), 0) <> 0;
    end
    else
    begin
        Result := AControl is TCustomEdit;
    end;
end;
  

Если интересующие вас элементы управления находятся в определенной форме и принадлежат этой форме (и являются стандартными элементами управления Delphi), вы можете использовать следующее:

 function TFormML2.FocusIsEdit: boolean;
var
  i : integer;
begin
  Result := FALSE;
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[ i ] is TCustomEdit then
    begin
      if (Components[ i ] as TCustomEdit).Focused and not (Components[ i ] as TCustomEdit).ReadOnly  then
      begin
        Result := TRUE;
        break;
      end;
    end;
  end;
end;
  

Если вы знаете форму и можете передать ее в качестве параметра, вы могли бы сделать что-то подобное.

TCustomEdit является предком всех полей редактирования, заметок и т. Д.