вопрос про Gauge

[Diamand]

проблема такова есть 2ве формы на одной форме есть кнопка и компонент Gauge нужно чтоб при нажатии кнопки Gauge проходил до 100% причём медленно не сразу выдавал 100 процентов а именно медленно просчитывал что то вроде как цикл прерывания ну как в играх при инсталляции и затем открывал форму2

ну вот как я написал

procedure TForm1.Button1Click(Sender: TObject);
var
Progress : integer;
begin
gauge1.Progress :=100;
form2.show;
end;

end.

помогите призз

[beegl]

это пишеш в Timer1 (установи свойство Timer1.Enabled := False )

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := Gauge1.Progress < Gauge1.MaxValue ;
Gauge1.Progress  := Gauge1.Progress  + 1;
if Gauge1.Progress = 100 then
form2.show;
end;

а это в саму кнопку:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;
end.

[Diamand]

еее супер спс

[TEDI15]

beegl, привет спасибо за пример. а как сделать что бы - компонент Gauge отображал ход процесса какого нибуть ? какие примеры процессов могут быть с этитм компонентом Gauge ? пожалуста расскажи по подробнее с примерами а то в книгах или вообще про это не рассказывают или пару строк тока и без примеров, буду очень ждать.

[zzuzzi]

1). Допустим у тебя в программе есть repeat или for или ещё чего интересное, то непосредственно в этот цикл можешь запихнуть прогресс заполнения Gauge, например так (вариантов на самом деле полно, ограничивается только твоей фантазией):

repeat
   // тут выполняется какой то твой цикл
        
   // в удобном тебе месте кидай процесс загрузки
        Gauge1.Progress:=Gauge1.Progress+1;
          if Gauge1.Progress=100 then
          Gauge1.Progress:=0;
        end;
   // при этом загрузка будет даходить до 100 при каждом выполнении цикла

       end;
     until (пока условие твоего цикла не выполнется);

Остаётся расчитать сколько процентов на какой цикл тебе выделить

2). Вот ещё кое что придумал, например у тебя цикл For но ты пока что не знаешь сколько раз он будет выполняться, а прошресс загрузки нада растянуть на весь процесс, тогда сделай так:

Var i,j,m: integer;
begin
 sGauge1.Progress:=0;
 m:=18; // взял как пример для проверки
  for i:=1 to m do begin
   j:=(100 Div(m));
   sGauge1.Progress:=sGauge1.Progress+j;
    if sGauge1.Progress=(j*m) then
     sGauge1.Progress:=0;
  end;
end;

Старался ничего не усложнять, всё просто и понятно.

[TEDI15]

zzuzzi большое спасибо за ответ и примеры, пожалуста а можно еще пример с этим компонентом и значением переменной, которую изменяешь и меняется Gauge и с кнопкой, пожалуста можно показать скрин фотку окошка программки и программку целиком, не только частями - Gauge, переменной и кнопки, очень хочется разобраться, ни как ни пойму, как изменять Gauge - изменяя значение в переменной, что бы менялся и компонент Gauge помоги пожалуста, буду очень ждать, спасибо

[Раймбек]

Как можно связать Gaugel c mediaPleyer на делфи

[Toxa]

http://delphi-prg.ru/komponent-delphi-gauge