Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2008, 10:23   #1
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
По умолчанию Запуск программы

Такая картина, при запуске програмы у меня вылезает заставка, на которой я розместил компонент progressbar, end Timer, вопрос: как сделать что бы етот прогрессбар начал работать а то у мну ничего не получаеться. Обьясните пожалуйста как, что и где его сделать, извините за глупые вопросы но я тока еще учусь.
Спасибо.
Мой скромненький сайт
Vladya вне форума Ответить с цитированием
Старый 17.11.2008, 10:39   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 form1.ProgressBar1.Position:=form1.ProgressBar1.Position+1;
end;
SERG1980 вне форума Ответить с цитированием
Старый 17.11.2008, 11:07   #3
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
По умолчанию

У меня вот такой код
Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
begin
Application.Initialize;
Form2:=TForm2.Create(Application); 
Form2.Show;
Form2.Update;
Sleep(5000);
Form2.Close;
Application.Run;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form2.ProgressBar1.Position:=Form2.ProgressBar1.Position+1
end;
End.
end.
но почему то бьет ошибку, в названии процедуры.
Мой скромненький сайт
Vladya вне форума Ответить с цитированием
Старый 17.11.2008, 11:16   #4
Vladya
Форумчанин
 
Аватар для Vladya
 
Регистрация: 04.11.2008
Сообщений: 360
По умолчанию

Код:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form2.ProgressBar1.Position:=Form2.ProgressBar1.Position+1
end;
begin
Application.Initialize;
Form2:=TForm2.Create(Application); 
Form2.Show;
Form2.Update;
Sleep(5000);
Form2.Close;
Application.Run;
End.
а написал вот так дык запускаеться а прогресбар не работает
Мой скромненький сайт
Vladya вне форума Ответить с цитированием
Старый 17.11.2008, 11:38   #5
Gorychev
Участник клуба
 
Аватар для Gorychev
 
Регистрация: 08.03.2008
Сообщений: 1,603
По умолчанию

Почитай здесь, земляк. Недавно сам столкнулся с подобной проблемой, этот пост помог мне ее решить.
Gorychev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск *.exe из программы Djaconda Паскаль, Turbo Pascal, PascalABC.NET 22 01.03.2012 00:27
Запуск программы в Delphi Cannibal Помощь студентам 2 11.10.2008 16:13
Запуск программы на выполнение из другой программы. ViNcHeStEr Паскаль, Turbo Pascal, PascalABC.NET 6 18.06.2008 14:33
Запуск файлов программы d_slava Помощь студентам 2 17.06.2008 11:22
Запуск программы Egych Общие вопросы Delphi 4 04.05.2007 09:46