Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 407)

...

Листинг 10.14.
Загрузка фильтра сообщений
procedure TfrmMessages.LoadFilter();
var
i: Integer;
begin
//Загрузка фильтра сообщений
lstAvailMessages.Clear();
lstSelMessages.Clear();
for i := mess_first to mess_last do
if messages_list[i].used then
//Сообщение перехватывается
lstSelMessages.Items.Add(messages_list[i].name)
else
lstAvailMessages.Items.Add(messages_list[i].name);
end;

При обращении к форме f rmMessages, кроме загрузки фильтра, нужно произвести некоторые дополнительные действия. Поэтому работа с этой формой начинается так же, как и в случае формы свойств окна, с вызова ее специального метода (листинг 10.15).