Журнал
Вложений: 1
Нужно сделать журнал в моем исходнике. Чтобы в нем писало программы, которые были выбраны. То есть клацаем по speedbuton и в журнале пишется такая-то программа. Можно ли реализовать мою идею?
добавляю Архив с Unit1.pas
|
NickDang, Пропишите в каждой функции speedbutton'a.
Код:
Memo1.Lines.Add('имя_вашей_программы');
Memo1.Lines.SaveToFile('MyJournal.txt');
Или в TStringList и сохранение в файл.
Но насколько я понял ваш исходник, вам лучше реализовать всё хранение программ в ini-файле, считывая данные не через кнопки, а через выделеную строку нужной программы, примерно как в моём проекте - Quick Killer 3.0 Final
|
Я забыл написать, журналом является Memo, который находится на той же форме. То есть он всегда будет под рукой и можно просмотреть какие программы уже запущены. при том нужно чтобы при закрытии исходника, журнал не сохранял историю..
|
NickDang, Drongo привел вам пример, как раз с Memo...
Цитата:
Цитата NickDang
при том нужно чтобы при закрытии исходника, журнал не сохранял историю.. »
|
Он и не будет сохраняться... Если вы это не предусмотрите.
Сделать просто
Код:
Memo1.Lines.Add('имя_вашей_программы');
Цитата:
Цитата NickDang
можно просмотреть какие программы уже запущены »
|
А если закрыть открытое приложение и потом снова открыть, и так раз N, то в журнале будет как будто сейчас запущено N копий этой программы?
|
Всё понял, а как сделать вертикальный бегунок чтобы листать журнал?
|
вроде вертикальный бегунок сам появляется если строк больше, чем может поместится в memo
|
нет, вот уже сколько жму Enter и не появился.
|
свойство ScrollBars у memo установите в ssVertical
|
ScrollBars в стандартных у меня только горизонтальный, а нужен вертикальный. не подскажете где он?
и можно подробно что прописать и где
|
в графическом редакторе должно быть в свойствах
|
Возможно, можно включить так:
Код:
memo.ScrollBars:=ssVertical;
Добавьте эту строку, например, в обработчик загрузки формы.
Или же ищите это в свойствах, должно быть... |
Нашол Kind sbVertical в параметрах. а теперь что и где прописать нужно, чтобы она листала журнал
|
Решил сам поискать свойство - легко нашлось....
В окне Properties для Memo1
ScrollBars -> ssVertical
NickDang, О чем говорите вы, вообще почему то непонятно :)
|
хм... прописал код: memo1.ScrollBars:=ssVertical; в scrollbar е. ставлю курсор в Memo1 теперь нажимаю Enter и появляется на Memo1 этот бегунок, который работает, а scrollbar нет. то есть когда был сделан скрол бар, то заработал бегунок на memo, который не работал при отсутствии scrollbar...
|
NickDang, Реально ничего не понял :)
Про какие скролбары вы говорите?- про свойства?или же вы добавляете как контрол их?
|
проблема решена. нужно было добавить memo1.ScrollBars:=ssVertical; в Memo1 )
|
NickDang, По правилам форума,- новый вопрос - новая тема....
|
Время: 00:02.
© OSzone.net 2001-
