Установление фокуса при открытии модального окна

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Установление фокуса при открытии модального окна

Способ решения, который мне видится на примере отображения формы с lookup-таблицей, необходимой для ввода данных, и которая должна иметь фокус вне зависимости от способа ее вызова.

Это должно выглядеть приблизительно так:

in fMain.formCreate:
fLookup := tFLookup.create (self);
{отсюда был удален код показа (show)}

in fMain.btn1Click:
fEntry := tFentry.create (self);
fEntry.showModal;

in fMain.LookupButtonClick:
fLookup.showMODAL;

in fEntry.LookupButtonClick:
fLookup.showMODAL;

in fLookup.DoneButtonClick:
fLookup.Hide;