Как при открытии формы модально, задать фокус Edit?

Posted by Chas under Delphi, Пост-обзор

Открываю форму модально Form1.Showmodal; пишу Edit1.SetFocus, однако курсор в нем не появляется. А если открывать форму просто Form1.Show; тогда как обычно отображается и мигает. В чем проблемма с модальным окном не ясно.

evg_m

Form1.Showmodal;

ВЕесь последующий код будкт выполнен ПОСЛЕ ЗАКРЫТИЯ.

Edir1.SetFocus; //ПОСЛЕ закрытия

Form1.Show;

показываем и НЕ останавливаясь проходим дальще.

Edir1.SetFocus; //сразу после показа

можно на событие Onactivate повесить

procedure TForm1.OnActivate(sender: Tobject);

begin

  Edit1.SetFocus;

end;

можно еще очень неуклюжий костыль.

form1.show;

edir1.setfocus;

form1.hide;

form1.showModal;

тема на форуме

Похожие статьи

• Определение активности программы
• Удержание фокуса на форме
• Как переключить фокус на предыдущее активное окно?