таймер

[Романнн]

как заставить объект на форме(прогрессбар, например...) работать с таймером(про тот же прогрессбар, чтобы он позишн изменял на каждый отсчет таймера...)

пробовал делать так:

with timer1.ontimer(???) do
begin
сам код;
end;

не могу понять что прописывать сендером в ontimer...

[puporev]

Создай процедуру типа этой:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image2.left:=240+round(140*sin(i*pi/180));
image2.Top:=170-round(140*cos(i*pi/180));
i:=i+1;
end;

Внутри напиши свое.

[MAcK]

cделай переменную и при каждом отсщёте таймера
Inc(переменная);
ProgressBar.position := переменная

[JTG]

Тю, дв.клик в инспекторе объектов на событии onTimer, дельфа сама сделает обработчик и поставит курсор между begin/end

а туда написать например так

procedure Form1.Timer1Timer(Sender: TObject) ;
begin
  With progressbar1 do
  begin
     if position>max then timer1.enabled:=false;
     inc(Progressbar1.Position);
  end;
end;

[Романнн]

procedure TForm6.Image1MouseEnter(Sender: TObject);
begin
timer1.Enabled:=true;
timer2.Enabled:=false;
with timer1.OnTimer(???Sender: TObject???) do
if image1.Width>=500 then timer1.Enabled:=false else
begin
image1.Width:=image1.Width+i;
i:=i+1;
end;
end;

вот кусок кода...
к таймеру будут обращаться не один объект,а много......

[Квэнди]

бред написали. читайте ответы данные выше

[Романнн]

кстати.......как я понял, делфийское "inc(переменная);"-это то же самое что и "i++;" в С....да?

[Квэнди]

F1 вас не достоин ?

Syntax


[Delphi] procedure Inc(var X: Integer); overload;



[Delphi] procedure Inc(var X: Integer; N: Integer); overload;


Description

In Delphi code, Inc adds one or N to the variable X.

X is a variable of an ordinal type (including Int64), or a pointer type if the extended syntax is enabled.

N is an integer-type expression.
X increments by 1, or by N if N is specified; that is, Inc(X) corresponds to the statement X := X + 1, and Inc(X, N) corresponds to the statement X := X + N. On some platforms, Inc may generate optimized code, especially useful in tight loops.

If X is a pointer type, it increments X by N times the size of the type pointed to. Thus, given
type
PMyType = ^TMyType;
and
var
P: PMyType;
the statement Inc(P) increments P by SizeOf(TMyType).
Warning:
You can't use Inc on properties because it modifies the parameter.

Note:
Inc(S, I) where S is a ShortInt and I is a number greater than 127 will cause an EIntOverFlow exception to be raised if range and overflow checking are on. In Delphi 1.0, this did not raise an exception.

[JTG]

Да
inc(i) это i++
inc(i,x) соотвестсвенно i += x

[Романнн]

а если у меня на форме будет 50 тех же прогрессбаров, то к каждому таймер прикреплять чтоли?