Как послать некое сообщение всем формам?
Nomadic предлагает следующий код:
|
var I: Integer; M: TMessage; ... with M do begin Message := ... ... end; for I := 0 to Pred(Screen.FormCount) do begin PostMessage( Forms[I].Handle, ... ); // Если надо и всем чилдам Forms[I].Broadcast( M ); end; |
[001687]
