Steps to reproduce:
TMyForm = class(TForm)
procedure CMDialogKey(var AMessage: TCMDialogKey); message CM_DIALOGKEY;
end;
procedure TMyForm.CMDialogKey(var AMessage: TCMDialogKey);
begin
// обеспечиваем работу клавиши Tab в редакторе
if Assigned(ActiveControl) and (ActiveControl is TSynEdit) and
(AMessage.CharCode = VK_TAB) then
AMessage.Result := 1
else
inherited;
end;
Tab char won't be inserted on the editor.
Tab char should be supported by the editor.
The solution is set WantTabs property to True. The bug is resolved and may be closed. But there is another issue. Tab key inserts a random count of spaces!