Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите вставить Exit в нужное место 
:(
    Опции темы
Bigreddog
Дата 27.5.2009, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет
Скажите пожалуйста как мне сделать чтобы при 
Код

f ConnectedToInternet=ctNone then  Form1.Caption:='Нет соединения'; 


не включалась функция ProgressBar1??????????????? Буду очень благодарен!!!

Код

procedure TForm1.Button1Click(Sender: TObject);

var
  I: Integer;
begin

  ShowMessage(IntToStr(RasConnectionCount));
  if ConnectedToInternet=ctNone then
    Form1.Caption:='Нет соединения';
  if ConnectedToInternet=ctProxy then
    Form1.Caption:='Proxy соединение';
  if ConnectedToInternet=ctDialup then
    Form1.Caption:='Dialup соединение';

  Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;
    end;


M
Rrader		Ознакомьтесь с правилами форума.


Это сообщение отредактировал(а) Rrader - 27.5.2009, 14:05
PM MAIL   Вверх
Frees
Дата 27.5.2009, 14:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(Bigreddog @  27.5.2009,  15:55 Найти цитируемый пост)
не включалась функция ProgressBar1??????????????? Буду очень благодарен!!!

что за функция такая ProgressBar1


так чтоли?
Код

procedure TForm1.Button1Click(Sender: TObject);

var
  I: Integer;
begin

  ShowMessage(IntToStr(RasConnectionCount));
  if ConnectedToInternet=ctNone then
  begin
    Form1.Caption:='Нет соединения';
    exit; 
  end;
  if ConnectedToInternet=ctProxy then
    Form1.Caption:='Proxy соединение';
  if ConnectedToInternet=ctDialup then
    Form1.Caption:='Dialup соединение';

  Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;
    end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Bigreddog
Дата 27.5.2009, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет
Я хочу чтобы при функции "нет соединения"  не включалась функция с progressbar1
PM MAIL   Вверх
Frees
Дата 27.5.2009, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(Bigreddog @  27.5.2009,  16:24 Найти цитируемый пост)
не включалась функция с progressbar1


что ты называен функция с progressbar1
Код

 ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;

или
Код

  Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Bigreddog
Дата 27.5.2009, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет
Код

Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;


Это сообщение отредактировал(а) Rrader - 27.5.2009, 14:30
PM MAIL   Вверх
Frees
Дата 27.5.2009, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
тогда смотри первый ответ


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Bigreddog
  Дата 27.5.2009, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет
Спасибо!!! smile  smile  smile  smile 
PM MAIL   Вверх
Bigreddog
Дата 27.5.2009, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет
Нет не помогло! Тоесть помогло что не идет progressbar1 при
 
 if ConnectedToInternet=ctNone then
    Form1.Caption:='111 - Нет соединения';

Но при значениях

  if ConnectedToInternet=ctProxy then
    Form1.Caption:='111 - Proxy соединение';
  if ConnectedToInternet=ctDialup then
    Form1.Caption:='111 - Dialup соединение';

должен работать progressbar1.... Что мне делать!???
PM MAIL   Вверх
kami
Дата 27.5.2009, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Bigreddog @  27.5.2009,  15:25 Найти цитируемый пост)
Что мне делать

Подключиться к интернету.
Код Frees верный.
А у тебя видимо неправильно отрабатывает ConnectedToInternet.
PM MAIL WWW   Вверх
Palladin
Дата 28.5.2009, 03:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Код

procedure TForm1.Button1Click(Sender: TObject);

var
  I: Integer;
  stop:integer;
begin
  ShowMessage(IntToStr(RasConnectionCount));
  if ConnectedToInternet=ctNone then
   begin 
    Form1.Caption:='Нет соединения';
    stop:=1;
   end;  
if ConnectedToInternet=ctProxy then
    Form1.Caption:='Proxy соединение';
  if ConnectedToInternet=ctDialup then
    Form1.Caption:='Dialup соединение';

  Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
 if stop=0 then
  for I := 0 to 222222 do
    ProgressBar1.Position := I;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;
    end;

если правильно понял...


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Frees
Дата 28.5.2009, 06:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Цитата(Palladin @  28.5.2009,  05:27 Найти цитируемый пост)
если правильно понял...

наши люди не ищат простых путей smile 


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
kami
Дата 28.5.2009, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Palladin @  28.5.2009,  03:27 Найти цитируемый пост)
если правильно понял...

А предупреждения компилятора уже побоку?
ДЛЯ КОГО он говорит, что переменная stop может оказаться не-инициализированной?
И зачем 2 раза 
Цитата(Palladin @  28.5.2009,  03:27 Найти цитируемый пост)
Button1.Enabled := True;
?
Тем более - в обработчике этой же кнопки?

ПОЧЕМУ нельзя просто скопировать код Frees ?

Упс...
прошу прощения, не увидел, что сообщение не от автора вопроса.
Но это не отменяет всего вышесказанного.

Это сообщение отредактировал(а) kami - 28.5.2009, 09:31
PM MAIL WWW   Вверх
Palladin
Дата 28.5.2009, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Да я код и не читал сосбтно по большей части, прочитал первый вопрос, потом прочитал отзывы топикстартера, ну и решил вернуться к старинному методу, написал, запостил.

Унаблед два раза, ну может у него таймер весит и если прогрессбар "погнал" он снова кнопку enabled:=false;...

А про то что у него функция прогрессбара эт:
Код

Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;
  for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True; 

Как-то не догодался smile , тогда так:
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  stop:integer;
begin
  ShowMessage(IntToStr(RasConnectionCount));
  if ConnectedToInternet=ctNone then
   begin 
    Form1.Caption:='Нет соединения';
    stop:=1;
   end;  
if ConnectedToInternet=ctProxy then
    Form1.Caption:='Proxy соединение';
  if ConnectedToInternet=ctDialup then
    Form1.Caption:='Dialup соединение';

if stop=0 then
 begin
  Button1.Enabled := True;
  ProgressBar1.Min := 0;
  ProgressBar1.Max := 10000000;

  for I := 0 to 222222 do
    ProgressBar1.Position := I;
  Beep;
  ShowMessage ('Программа не зарегистрирована');
  Button1.Enabled := True;
    end;
 end;






--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
kami
Дата 28.5.2009, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72
Цитата(Palladin @  28.5.2009,  10:13 Найти цитируемый пост)
тогда так

Опять нет инициализации переменной stop.
При первом вызове процедуры она будет проинициализирована нулем (вроде бы).
А что будет в ней при последующих вызовах - никто не знает.
Поэтому первой строчкой кода должна идти
Код

stop:=0;
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0579 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.