 |
|
20.07.2008, 23:09
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Ещё один глупый вопрос, в событие прогресс бара:
procedure TForm1.progressbarDragDrop(Sender, Source: TObject; X,
Y: Integer);
Я вписываю код проверки на % выполнения:
if progressbar.Position > 40 then
begin
команда
end;
Нифига не пашет. Где ошибка?
|
|
|
20.07.2008, 23:20
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами:
10175096
Репутация:
105
|
|
событие DragDrop вызывается? установи курсор на строке if progressbar.Position > 40 then и нажми f4. если событие вызывается то программа станет на паузу и подсветит строку на которой курсор.
|
|
|
|
20.07.2008, 23:24
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от t04
событие DragDrop вызывается? установи курсор на строке if progressbar.Position > 40 then и нажми f4. если событие вызывается то программа станет на паузу и подсветит строку на которой курсор.
сделал. ничё не происходит....
просто как тока прогресс бар достигает 40 мне надо одну команду выполнить... вот и хз куда его там вставлять...
|
|
|
|
20.07.2008, 23:49
|
|
Познающий
Регистрация: 30.04.2007
Сообщений: 77
С нами:
10016487
Репутация:
50
|
|
попробуй поставить событие на OnDragOver или OnDragEnd
|
|
|
|
21.07.2008, 03:25
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами:
10175096
Репутация:
105
|
|
да дело не в цикле, дело в том что событие он DragDrop не вызывается. ты вообще знаешь когда оно вызывается? и не понятно зачем ты делаешь драг анд дроп програесс бара? это какой то ужас.
если я понял верно то тебе надо всего лишь выловить когда прогресс бар будет более 40? если так то обрабатывай проседуру в которой ты увеличиваешь посицию. если ничего не понял из моих слов то выкладывай код сюда, прикрепи к сообщению или залей на файлобменник какой нить и ссылку кинь.
на самый крайний случай кинь на форму таймер, установи Timer.Interval на 50 и повесь на него код.
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 50;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if progressbar.Position > 40 then
begin
команда
end;
end;
Последний раз редактировалось t04; 21.07.2008 в 03:29..
|
|
|
|
21.07.2008, 07:01
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
С нами:
10021597
Репутация:
905
|
|
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar.Position := progressbar.Position + 1;
if progressbar.Position > 40 then
begin
команда
end;
end;
 |
|
|
|
21.07.2008, 12:48
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
С нами:
9593244
Репутация:
107
|
|
Как прочитать файл построчно, и при появлении новой строки автоматом занести ее в переменную?
Спасибо за помощь!
|
|
|
|
21.07.2008, 12:56
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
С нами:
10021597
Репутация:
905
|
|
Собираешься периодически обращаться к файлу и опрашивать его на предмет появления новых строк?
|
|
|
|
21.07.2008, 12:57
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами:
10395573
Репутация:
94
|
|
Сообщение от a_v
Как прочитать файл построчно, и при появлении новой строки автоматом занести ее в переменную?
Спасибо за помощь!
Уточни что именно хочешь.
"появлении новой строки" - если добавиться еще строка или если какая либо из имеющихся изменится?
"автоматом занести ее в переменную? " - т.е. прога при старте должна проверсять целостность файла и если он изменился уведомлять?
|
|
|
|
21.07.2008, 13:02
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
С нами:
9593244
Репутация:
107
|
|
Мне надо, чтобы переодически(по таймеру), проверять файл на предмет появления новых строк, если новая строка(или строки) появились - все это занести в переменную к примеру dogma
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
