Новичок. Подскажите как остановить кнопку.

← →
Alexx (2003-12-01 21:16) [0]

Как остановить прыгающую кнопку, подскажите пожалуйста. Только попонятней, а то я ещё новичок в Delphi.
procedure TForm1.Timer1Timer(Sender: TObject);
var
x,y: Integer;
begin
Button1.Enabled:=True;
Button2.Enabled:=False;
x:= Round(Random(3)*72);
y:= Round(Random(5)*72);
Button1.Left:=x;
Button1.Top:=y;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//здесь надо отключить прыгающую функцию
Button1.Enabled:=False;
Button2.Enabled:=True;
end;

← →
MaxDDinc (2003-12-01 21:17) [1]

Timer1.Enabled:= false;

← →
Anatoly Podgoretsky © (2003-12-01 21:41) [2]

Ты чего над кнопками издеваешься

Application.Terminate;

Новичок. Подскажите как остановить кнопку. Найти похожие ветки