Определить форма активна или нет (получила или потеряла фокус)

My Help » Pascal Delphi » Определить форма активна или нет (получила или потеряла фокус)

Определить форма активна или нет (получила или потеряла фокус)

Автор: reader hlp от 15-12-2018, 10:21, посмотрело: 68

type
//...
private
{ Private declarations }
procedure WMNCACTIVATE(var M: TWMNCACTIVATE); message WM_NCACTIVATE;
end;

implementation

//...

procedure TForm1.WMNCACTIVATE(var M: TWMNCACTIVATE);
begin
inherited;
if M.Active then caption:='Form active'
else caption:='Form not active' ;
end;

0
1
2
3
4
5

Категория: Pascal Delphi

Моя записная книжка. Всегда при мне

Определить форма активна или нет (получила или потеряла фокус)