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

[Kronos913]

Хотел сделать такой вот код, но он выдал ошибку в процессе исполнения

    E.SetFocus;
    If F.ShowModal ...

Где E - TEdit на форме F

Вопрос: как сделать фокус на E при том что я запускаю форму через ShowModal?

[Arigato]

Так до ShowModal форма не отображена, то есть фокус передать некуда. Надо до ShowModal установить значение свойства ActiveControl второй формы.

В качестве примера, на Form2 есть 2 TEdit. На Form1 две кнопки. При нажатии первой открывается вторая форма с передачей фокуса первому TEdit, при нажатии второй - второму. Код Unit1:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ActiveControl:=Form2.Edit1;
  Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.ActiveControl:=Form2.Edit2;
  Form2.ShowModal;
end;

[xxbesoxx]

Сообщение от Kronos913

как сделать фокус на E при том что я запускаю форму через ShowModal?

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  (Form2.ShowModal=1) then
  begin
     Form2.Edit1.SetFocus;
  end
  else
   Form1.Edit1.SetFocus;

end;

end.