Есть класс, дочерний от TPanel, на нем располагается, в частности StringGrid. Задумка вызывать всплывающее окно для редактирования, есть процедура:

procedure TAliasEdit.createParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.Style := WS_POPUP or WS_BORDER;
 Params.ExStyle := WS_EX_TOOLWINDOW;
 Params.WindowClass.style := Params.WindowClass.style or CS_SAVEBITS;
end;

В StringGrid предусмотрена возможность редактирования, проблема в том, что когда нажимаем интер, теряется фокус и становится активной главная форма. Как исправить?

Еще раз, кто на ком ехал?