таймер

[Квэнди]

А что собственно должен делать таймер ?
описывайте вопрос

[JTG]

Сделай обработчик для одного, и присвой остальным эту процедуру.

Progressbar1.onTimer := Timer1Timer;
Progressbar2.onTimer := Timer1Timer;
...
А в самой процедуре

procedure Form1.Timer1Timer(Sender: TObject) ;   
var xProgressbar:TProgressBar;
begin   
  xProgressbar := Sender as TProgressBar;
  Case xProgressbar of
    progressbar1 : [...]
    progressbar2 : [...]
  end;   
end;

Короче через параметр Sender передаётся объект, вызвавший метод. А поскольку все объекты в дельфе - потомки TObject, то работает приведение типов // должно работать, не проверял

[Романнн]

в общем,у меня будет несколько имэдж, по наведению на которые они будут плавно увеличиваться до определенного размера(для плавности таймер и нужен)...в самом таймере описать не получится(как мне кажется,т.к. при таймер.енабле=тру, все картинки дружно увеличатся), соответственно,я пытаюсь описать их увеличение в обработчике онМаусЕнтер...

надеюсь,что сейчас понятнее объяснил

[NoName_emaNoN]

Да идея правильная, только мне кажется что у ProgressBar нету события OnTimer
Смотря как стоит задача. Если все в раз прогресс бары нужно поднимать, то просто циклом, а если нет, то смотреть какой progressBar (1,2,3....) и в соответствии с этим, делать то, что нужно для него.

[JTG]

а да пардон, ну вообщем вы поняли

[NoName_emaNoN]

Сообщение от Романнн

в общем,у меня будет несколько имэдж, по наведению на которые они будут плавно увеличиваться до определенного размера(для плавности таймер и нужен)...в самом таймере описать не получится(как мне кажется,т.к. при таймер.енабле=тру, все картинки дружно увеличатся), соответственно,я пытаюсь описать их увеличение в обработчике онМаусЕнтер...

надеюсь,что сейчас понятнее объяснил

При навидении на Image, в переменную вносить имя имэйджа, на который наведено, а в таймере по этой переменной определять объект, и с ним уже работать.
При Image.LeaveMouse обнулять переменную, и Timer1.Enabled:=False;

[Романнн]

ладно,буду пытаться)спасибо всем

[JTG]

можно как-то так:

Const minWidth = 128; //ширина по умолчанию
         maxWidth = 400; //ширина при наведении
         delta = 2; //увеличивать уменьшать на 2 пикселя за тик таймера

var action: integer; //1 - увеличение, -1 - уменьшение, 0 - стоять
...
procedure Form1.Image1MouseEnter(Sender: TObject) ;   
begin
  action:=1;
end;

procedure Form1.Image1MouseLeave(Sender: TObject) ;   
begin
  action:=-1;
end; 
...
procedure Form1.Timer1Timer(Sender: TObject) ;      
var image:TImage;   
begin      
  image := Sender as TImage;   
  case action of
  1: Begin
         If image.Width < maxWidth then inc(image.width,delta)
         Else action:=0;
         //увеличивать до нужного размера и остановить
         //... ещё высоту изменить пропорционально ширине
      end;
  -1: Begin
         If image.Width > minWidth then dec(image.width,delta);
         Else action:=0; 
         //то же самое, но уменьшать
       End;
    End //case
end;

Только надо переменную action для каждого TImage свою, можно сделать класс TMyImage = class(TImage), добавить в него и тогда обращаться case Image.action of.
Таймер думаю можно и не выключать

[Романнн]

спасибо!...сам сейчас так и делаю.....

[BOBAH13]

А про стек тут никто не слышал ?