[SlavaGTRGT]

Помогите сделать.
Чтоб моя форма на событи oncreate при потере фокуса , возвращала себе фокус!!!???

[AleD]

Вопрос с подвохом можно использовать OnActivate\OnDeactivate в прогах с VCL, на WinAPI перехватывать сообщения WM_ACTIVATE и смотреть что в параметре wParam (WA_ACTIVE\WA_INACTIVE). Но, то ли в делфи, то ли в самой винде (ХР по крайней мере) сообщение не посылается окну, оно посылается только после минимизирования и восстановления окна. Кароче я тут нашёл способ это исправить, просто в событие OnShow добавить

Код:

1 2	WindowState := wsMinimized; WindowState := wsNormal;

и сообщения будут обрабатываться...

[friz]

а если так :

Код:

1 2 3 4

procedure TForm1.FormShow(Sender: TObject); begin form1.SetFocus; end;