Посылка сообщения всем формам — BroadCast

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

var

I: Integer;

M: TMessage;

with M do begin

Message := …

end;

PostMessage( Forms[I].Handle, … );

// Если надо и всем чилдам

Forms[I].Broadcast( M );

end

{/codecitation}

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