У меня есть проект Delphi7 с примерно 10 окнами. MainWindow загружается при запуске программы. Через некоторое время MainWindow обращается к другому окну проекта, чтобы добавить элементы списка и обновляет их каждые 1 -2 секунды. Однако это окно, кажется, зависает и не показывает список в все после того, как я его открыл.
Это работает, если у меня есть в процедуре OnShow моего MainWindow следующие команды:
SecondWindow.Show;
SecondWindow.Close;
но проблемы, но это кажется непрофессиональным. Любые идеи, как я могу нарисовать окно, не показывая его?
РЕДАКТИРОВАТЬ :КОД (Я использую Indy9)
procedure TMainWindow.ServerSocketExecute(AThread: TIdPeerThread);
begin
/....
if Buffer = 'additem' then begin
Window2.ListView1.Items.Add;
Exit;
//.....
end;
end;
Вот и все. Я удалил все таймеры с Window2, и он, кажется, все еще зависает. Либо основное окно мгновенно зависает, если добавляются элементы, либо когда я пытаюсь открыть второе окно в первый раз.