Передача фокуса элементу управления модального окна

← →
QuasiLamo © (2004-09-12 21:33) [0]

Создаю форму и контролы(батоны) на ней "на лету".
Необходимо показать ее модально.
Как передать фокус нужному контролу?
До показа это сделать я не сумел, ибо "can"t focuse on disabled or invisible window", поэтому сделал по тупому. Сначала показываем форму, затем проставлям фокус на нужной кнопке, затем окно прячем, потом показываем модально. Если ли способ лучше?

← →
Sheng © (2004-09-12 23:34) [1]

Пусть Form2 выpsdftncz как модальная.
В форме в public описать переменну, например ControlID: Byte;
Перед показом: Form2.ControlID:=1;

в Form2.OnShow:

case ControlID of
1: Edit1.SetFocus;
2: Edit2.SetFocus;
3: Edit3.SetFocus;
else Button1.SetFocus;
end;

← →
Sheng © (2004-09-12 23:35) [2]

* выpsdftncz = вызывается

← →
QuasiLamo © (2004-09-12 23:39) [3]

Ага.
Можно для этого использовать свойство tag
procedure TFu.show(Sender: TObject);
var
i: integer;
begin
for i := 1 to (Sender as TFORM).ControlCount - 1 do
with ((Sender as TFORM).controls[i] as TBitbtn) do
if tag = def then
begin
SetFocus;
exit;
end;
end;

А может соотв. контрол просто сделать TabOrder=0?

TForm.ActiveControl

Передача фокуса элементу управления модального окна Найти похожие ветки