 |
|
14.09.2007, 17:15
|
|
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
С нами:
9882761
Репутация:
239
|
|
Я просто другой код вставил
Код:
ProgressBar1.Position := ProgressBar1.Position + 1;
Может из-за этого надо тот удалить...
Да и еще, если добавить тот код, то ProgressBar будет заполняться до бесконечности! Он заполнится, потом с начала и т.д....
Короче вместо этого кода:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;
Я вставил этот:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 100 then Form4.Show;
end;
И теперь как только заполняется ProgressBar вылазиет другое окно. А то в первом случае не вылазило((
Последний раз редактировалось Killerkod; 14.09.2007 в 17:43..
|
|
|
14.09.2007, 21:57
|
|
Познающий
Регистрация: 11.03.2007
Сообщений: 57
С нами:
10089538
Репутация:
1
|
|
Привет
подскажите кодом пожалуйста как удалить ехе после выполнения - чтобы запустил прогу - она отработала и удалилась
и есть ли у кого пример выдирания с машинки разичных данных фтп - мыла - аси и так далее
p.s. по второму вопросу - может просто знаете паблик сорци где есть реализация - посмотрю что и как.
Спасибо
|
|
|
|
14.09.2007, 22:07
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами:
10073762
Репутация:
234
|
|
и есть ли у кого пример выдирания с машинки разичных данных фтп - мыла - аси и так далее
p.s. по второму вопросу - может просто знаете паблик сорци где есть реализация - посмотрю что и как.
Спасибо
Паблик сорцы есть всюду, и даже в этом разделе...
|
|
|
|
15.09.2007, 08:31
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
С нами:
9923122
Репутация:
8
|
|
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Что означает эта ошибкА?
|
|
|
|
15.09.2007, 09:45
|
|
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
С нами:
10222145
Репутация:
726
|
|
Сообщение от infernal-team
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Что означает эта ошибкА?
Не русским же языком написано:
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Неисправимая ошибка в строке 8 , невозможно скомпилировать используемую часть 'Unit4.pas'
Unit4 in 'Unit4.pas' {Form4};
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
Т.к. неопределенный идентификатор MessageParts в строке 86
Который либо вообще не определен, либо определен в UnitХ.pas и не известен в 'Unit4.pas'
Используй uses UnitX (X номер Unit где определена MessageParts) в 'Unit4.pas'
Зы пока писал сам запутался.
|
|
|
|
15.09.2007, 10:04
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
С нами:
9923122
Репутация:
8
|
|
Код:
[Error] Unit4.pas(86): Undeclared identifier: 'TIdAttachmentFile'
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Incompatible types: 'TComponent' and 'TIdMessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Вот другая поблема ошибка вылетает из за этой строки:
TIdAttachmentFile.Create(M.MessageParts, OpenDialog1.FileName);
что я сделал не так помоги пожалуйста. |
|
|
|
15.09.2007, 11:25
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
С нами:
9923122
Репутация:
8
|
|
[Fatal Error] Unit4.pas(9): Program or unit 'Unit4' recursively uses itself
Вот какая ошибка после твоего совета, Xserg !!!
|
|
|
|
16.09.2007, 17:20
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
С нами:
9923122
Репутация:
8
|
|
Справился сам, всем спасибо.
|
|
|
|
17.09.2007, 18:07
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
С нами:
10088966
Репутация:
646
|
|
FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?
|
|
|
|
17.09.2007, 18:29
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами:
10182506
Репутация:
1393
|
|
Сообщение от Joker-jar
FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?
Это можно настроить, читай )
http://www.delphisources.ru/pages/faq/faq_delphi_basics/FormatDateTime.php.html
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
