![]() |
|
|
#16
|
|||
|
|||
|
Уже понял что нельзя, надо использовать RichEdit.
Теперь такой вопрос(наверное достал уже всех) надо что бы один таймер выводил каждые две минут "Выпуск чугуна", это я сделал, но вот когда надо изменить подачи (тоесть все таймеры останавливаются), он сбрасывается и начинает заново отсчитывать 2 мин, как сделать так что бы он не останавливался( точнее останавливалс но навремя но потом шел с того же места), и еще нужен способ что бы через 30 сек после надписи "Выпуск Чугуна" появлялось "выпуск окончен". Всем заранее спасибо. |
|
#17
|
||||
|
||||
|
Для ведения журнала сообщений лучше использовать TListView, с инфо-иконками загруженными в TImageList. Переключаете его в режим vsReport, добавляете 1 колонку и вот такой функцией добавляете сообщения:
Код:
Const
mtInfo = 2;
mtSuccess = 3;
mtError = 4;
procedure LogMessage(Msg: String; MsgType: Integer);
begin
frmMain.Log.AddItem(Format('%s %s',[DateTimeToStr(Now),Msg]), nil);
frmMain.Log.Items[frmMain.Log.Items.Count-1].ImageIndex := MsgType;
frmMain.Log.Scroll(0, frmMain.Log.ListLineHeight);
Application.ProcessMessages;
end; |
|
#18
|
|||
|
|||
|
Привет, мне нужна помощь...
Переслать цифры из MS Exsel в StringGrid, а потом эти цифры присвоить переменным для использования в расчетных формулах (что-то вроде а:=..., а потом а/2*в). ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО!!!!!! ![]() |