![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Memo [D7, XP]
Sw © (2014-06-30 10:51:00)Пытаюсь создать отображение процесса на экране в Memo:
fm_Report:=Tfm_Report.Create(Application);//на этой форме Memo
fm_Report.ShowModal;
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;в конце обработки, тогда будет конечно отображен весь ход обработки, а как сделать так, чтобы отображалась последовательно каждая добавленная строчка?
sniknik (2014-06-30 12:37:00) [1]> создать проект без форм,
> потом понадобился Memo, и вот в файле проекта создаю форму...
> увидеть ее могу только ShowModal...
формы это не просто форма там еще логика vcl с выборкой сообщений/ожиданием. т.е. либо откажись от "проект без форм" либо повторяй в нем логику сообщений, а вообще поищи примеры на winapi... собственно все повторять не нужно (форму можешь свою), но логику с сообщениями(/происхдящее) понять помогут.
Ega23 (2014-06-30 12:00:00) [2]Походу, Application.ProcessMessages.
Sw (2014-06-30 11:44:00) [3]окно, видимо, появляется, но тут же закрывается, видно мелькание...
первоначально планировалась создать проект без форм, потом понадобился Memo, и вот в файле проекта создаю форму...увидеть ее могу только ShowModal...что-то я не так делаю...
если создать приложение с формой и этот код с добавлением в Memo строк поместить в FormCreate - все нормально отработает
Германн (2014-06-30 11:13:00) [4]
fm_Report.Show;