Журнал событий в Delphi 7

[RockForr]

Помогите сделать журнал событий для своей проги, таким образом чтобы
при нажатии на кнопку на одной форме это событие отображалось на другой форме в Memo или ListBox, например кнопка "включить свет", нажимаем на нее, а на другой форме в Memo записываются события-"12:35 Свет включен". Помогите исходником!!!

[Лукманов Александр]

procedure TForm1.btn1Click(Sender: TObject);
begin
Form2.memo1.Lines.Add(DateToStr(Date)+ ' ' +TimeToStr(Time) +' Нажал кнопку 1');
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Form2.ShowModal;
end;

end.

[RockForr]

Спасибо!!!

[artemavd]

Лукманов Александр, а можно сделать, чтобы не надо было открывать форму, чтобы посмотреть журнал? Вот у меня Memo на вкладке находится. Можно ли сделать, чтобы все события, которые вызываются в моей программе (нажатия на кнопки, выбор предмета из комбика) автоматом заносились в журнал? Наприме, я нажал на кнопку "Выполнить", то в журнале отобразилась запись "13:00 нажата кнопка "Выполнить"." А если выбираю из комбика какой-то пункт, то в журнал добавлялась бы запись "14:00 выбрано из списка Литература" (название предмета меняется). Можно так сделать? Или нужно прописывать выгеприведенный код в обработчик каждой кнопки и каждого комбика?

[Stilet]

конечно. Вместо Мемо например создай переменку TstringList, ее наполняй, и при наполнении скидывай в файл методом SaveToFile
Это же можно и в Мемо делать, но если хочеш обойтись без него StringList - рекомендую.