Потеря фокуса окна в приложении

[Dr.Badnezz]

Кто знает, как выполнить вот этот код:
alphablend := true;
alphablendvalue := 100;
при потере фокуса окна?? (пользователь выбрал другое окно)

[Terran]

Сообщение от Dr.Badnezz

Кто знает, как выполнить вот этот код:
alphablend := true;
alphablendvalue := 100;
при потере фокуса окна?? (пользователь выбрал другое окно)

Можно сделать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If Form1.Active=False Then
Begin
Alphablend:=True;
Alphablendvalue:=100;
End
Else
Begin
Alphablendvalue:=255;
End;
End;

[Sm1Le]

OnDeactivate()
OnActivate()

методы формы ... (events)

[Dr.Badnezz]

А вот как активировать форму в событии MouseEnter?

[Terran]

Сообщение от Dr.Badnezz

А вот как активировать форму в событии MouseEnter?

Если я не ошибаюсь, то активировать форму можно так:

Procedure SwitchToThisWindow(Wnd: HWND; Restore: Boolean); Stdcall;
External 'user32.dll' name 'SwitchToThisWindow';
//
SwitchToThisWindow(Application.Handle,True);
//
Или
SetForegroundWindow(Application.Handle);