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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Type TMain = class(TForm)

….

protected Procedure LastFocus(var Mess : TMessage);

message WM_ACTIVATE;

End;

Procedure TMain.LastFocus(var Mess : TMessage);

Begin

IF Mess.wParam = WA_INACTIVE Then

PanelCaption.Color:=clInactiveCaption

Else

PanelCaption.Color:=clActiveCaption;

Inherited;

End;

{/codecitation}

Добавить комментарий