обьединение процедур...Timer+Onclick

[MyLastHit]

Эх...начал изучение Таймера. решил написать простенькуюю програмку которая бы при клике по изображению переводила бы его влево и прятала...Описал 2 процедуры... Их както обьединить надо, или я не стого места зашел? Вот мои нароботки по процедурам:

procedure TForm2.Timer2Timer(Sender: TObject);
var t:integer;
begin
t:=EffectButton3.left;
if t>0 then
 EffectButton3.left:=EffectButton3.left - 20;
end;


procedure TForm2.EffectButton3Click(Sender: TObject);
var l:integer;
begin
EffectButton3.left:=0;
l:=EffectButton3.left;
if l=0 then EffectButton3.Hide;
end;

[Selestis]

Не сильно ясно что вы хотите сделать... Таймер вот у вас постепенно двигает кнопку влево, а с кликом вас Капитан Очевидность похоже попутал:

EffectButton3.left:=0;
l:=EffectButton3.left;
if l=0 then EffectButton3.Hide;

Что именно должна по задумке делать эта процедура?
И главное, что собственно не работает?

[MyLastHit]

Копетан очивидность не дремлет)
В общем вот эта процедура удаляет картинку при нажатии на нее если она в левом положении:

EffectButton3.left:=0;
l:=EffectButton3.left;
if l=0 then EffectButton3.Hide;

Вот эта двигает кнопку плавно влево:

t:=EffectButton3.left;
if t>0 then
 EffectButton3.left:=EffectButton3.left - 20;

Как обьеденить это и сделать так чтобы при клике картинка переводилась в левое положение, и если она перевелась туда то при нажатии по ней, картинка исчезает?

[Selestis]

В общем вот эта процедура удаляет кнопку при нажатии на нее если она в левом положении

Ну, у вас она ставит кнопку в 0, затем ПРОВЕРЯЕТ в нуле ли она и прячет при этом условии.
А если серьёзно, то кажись я понял что вы хотите)))

procedure TForm2.Timer2Timer(Sender: TObject);
var t:integer;
begin
t:=EffectButton3.left;
if t>0 then
 EffectButton3.left:=EffectButton3.left - 20
else Timer2.Enabled:=false;
end;


procedure TForm2.EffectButton3Click(Sender: TObject);
var l:integer;
begin
if
EffectButton3.left=0 then EffectButton3.Hide
else Timer2.Enabled:=true;
end;

Изначально отключите таймер только...
P.S. Для плавности поставьте интервал таймера поменьше и число 20 из 1-й процедуры тоже уменьшите.

[MyLastHit]

большое спасибо)

[Selestis]

Пожалуйста)