Ошибка Cannot focus a disabled or invisible window.

[sedoq]

Выскакивает ошибка в программе по нажатию на клавишу Tab
Cannot focus a disabled or invisible window.

У меня Две формы на первой 2 edit'a с текстом

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.Clear;
edit1.Font.Color := clBlack;
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
edit2.Clear;
edit2.Font.Color := clBlack;
end;

И компонент ApplicationEvents1Message

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
     if Msg.message = WM_KEYDOWN then
        if (Msg.wParam=VK_TAB) then
        begin
        Edit2.SetFocus;
        Edit2.Clear;
        edit2.Font.Color := clBlack;
        Handled:=true;
        end;
        end;

А на второй форме тоже 2 edit'a но нету ApplicationEvents1Message

procedure TForm2.Edit4Click(Sender: TObject);
begin

edit4.Clear;
edit4.Font.Color := clBlack;
end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
edit1.Clear;
edit1.Font.Color := clBlack;
end;

И когда я именно на Form2 нажимаю tab выскакивает ошибка Cannot focus a disabled or invisible window.

А на первой форме когда tab жму всё нормально
Возможно ли каким ни буть образом убрать ошибку ?

[MaxNik2009]

ApplicationEvents получает системные сообщения в независимости от того какое окно у тебя активно в данный момент. По этому в ApplicationEvents1Message проверяй какое окно в данный момент активно, и в зависимости от этого выполняй нужные действия.procedure

TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
     if Msg.message = WM_KEYDOWN then
        if (Msg.wParam=VK_TAB) then
        begin
          если активно окно1 то
            твои действия для окна1
          иначе
             твои действия для окна2;
        end;
end;

надеюсь мысль ясна.

[sedoq]

В строчке Form3.Edit4.SetFocus; показывает ошибку -
[Error] Unit2.pas(311): Operator not applicable to this operand type

[sedoq]

MaxNik2009

Всё разобрался спасибо большое