Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизНовичок. Подскажите как остановить кнопку. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c