Memo

← →
Sw (2014-06-30 10:51) [0]

Пытаюсь создать отображение процесса на экране в Memo:
fm_Report:=Tfm_Report.Create(Application); fm_Report.ShowModal; //на этой форме Memo
dt:=Now; fm_Report.Memo1.Lines.Add("["+(FormatDateTime("dd.mm.yyyy hh:nn:ss", dt))+"]: Запуск обновления...");
procedure Tfm_Report.Memo1Change(Sender: TObject); begin if Memo1.Modified then begin Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+"111.txt"); end; end;
Помогите, разобраться, как сделать, чтобы добавляющиеся строки в Memo отображались на экране...При таком коде открыт пустой Memo, добавленная строка fm_Report.Memo1.Lines.Add("["+(FormatDateTime("dd.mm.yyyy hh:nn:ss", dt))+"]: Запуск обновления..."); не отображается.
Если поставить fm_Report.ShowModal; в конце обработки, тогда будет конечно отображен весь ход обработки, а как сделать так, чтобы отображалась последовательно каждая добавленная строчка?

← →
Германн © (2014-06-30 11:13) [1]

fm_Report.Show;

← →
Sw (2014-06-30 11:44) [2]

окно, видимо, появляется, но тут же закрывается, видно мелькание...
первоначально планировалась создать проект без форм, потом понадобился Memo, и вот в файле проекта создаю форму...увидеть ее могу только ShowModal...что-то я не так делаю...
если создать приложение с формой и этот код с добавлением в Memo строк поместить в FormCreate - все нормально отработает

← →
Ega23 © (2014-06-30 12:00) [3]

Походу, Application.ProcessMessages.

> создать проект без форм,
> потом понадобился Memo, и вот в файле проекта создаю форму...
> увидеть ее могу только ShowModal...
формы это не просто форма там еще логика vcl с выборкой сообщений/ожиданием. т.е. либо откажись от "проект без форм" либо повторяй в нем логику сообщений, а вообще поищи примеры на winapi... собственно все повторять не нужно (форму можешь свою), но логику с сообщениями(/происхдящее) понять помогут.

Memo Найти похожие ветки