Советы по Delphi

         

Как послать некое сообщение всем формам?


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]



Содержание раздела