Как узнать форма активна или нет? |
Previous Top Next |
Code: |
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; |
©Drkb::00424
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php