Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

← →
хз ©   (2003-12-01 22:35) [3]

Application.Terminate;

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c