Цикл действий на(в) одно кнопке

[Vadja-Son]

ой, там помоему вышло 2 .exe файла, последний называется Projekt1

[Sibedir]

Конечно не будет работать
Вы зачем сделали

procedure TForm1.FormCreate(Sender: TObject);
var I : integer;
begin
  // Ваш код
end;
begin
  // Мой код
end;

Надо-то было

procedure TForm1.FormCreate(Sender: TObject);
var I : integer;
begin
  // Ваш код
  // Мой код
end;

[Vadja-Son]

При много благодарен... вот что значит не внимательность

Но есть 1 интендент, я о нём упоминал ранее... мне нужно, что с каждым нажатием кнопки, предыдущие действие отключалось, тоесть нажал, Label8 красный, нажал есчо, Label9 красный, а Label8 уже серый, нажал, Label10 красный, Label8 и Label9 уже серые...

И сразу второй вопросик, он же и задачка, можно ЛИ на этой же самой кнопке сделать таймер, в чём его задача:

нажал Button1 пошёл таёмер (30сек), в течении этого времене нужно нажать опять на эту кнопку, и таёмер запускается заного (30 сек)!
Есле же проходит 30 сек, и в это время кнопка не нажимается, программа выполняет функцию Application.Terminate; тоесть выход!?!?!?

Реально ли это???

Да, кстати, желательно чтобы этот таймер выводился на форму в виде Label или Edit ....

[ArtGrek]

evg_m

if label1.color<>clred then label1.color:=clred
else  if label2.color <>clred then label2.color:=clred
else if label3.color <>clred then label3.color:=clred
else showmessage('все уже окрашены');

просто исправь то что красным, ошибся человек
но он закрашивает все поочереди лабелы
а код 856100 можно поставить в таимер и он будет идти по кругу
читаи внимателнее

[Vadja-Son]

Какразтаки внемательно следует читать вам:

Цитата:
evg_m
Код:

if label1.color<>clred then label1.color:=clred
else if label2.color <>clred then label2.color:=clred
else if label3.color <>clred then label3.color:=clred
else showmessage('все уже окрашены');

просто исправь то что красным, ошибся человек

Я ВООБСЧЕ не этот проект делаю....

а код 856100 можно поставить в таимер и он будет идти по кругу
читаи внимателнее

вы вообсче про какой код говорите???

[Sibedir]

Про таймер
Короче, заводите переменную t: integer
По клику устанавливаете t:=30 и запускаете таймер с интервалом 1000 (1 сек.)
В обработчике таймера i := i - 1 и выводите значение i. Далее проверяете, если i=0, то закрываете программу.
Таким образом каждую секунду t будет уменьшаться на 1 (при 0 программа закроется), а при повторном нажатии кнопки t снова станет =30.

var
  CloseTime: Integer;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := False; // Что-бы отсчет пошел заново и до закрытия оставалось ровно 30 сек., а не 29 с чем-то.
  CloseTime := 30;
  Label1.Caption := IntToStr (CloseTime);
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CloseTime := CloseTime - 1;
  Label1.Caption := IntToStr (CloseTime);
  if CloseTime = 0 then Close;
end;

[Vadja-Son]

Огромное спасибо за помощ, всё получилось!!!

[Vadja-Son]

Ребята, всё, сдаюсь, 2ой день мучаюсь... хотел прописать массив, совсем всё к чертям полетело, запутался так, что распутать немогу, ну хоть ты программу заного пиши...

Помогите разобратся, или может чего не хватает дополнить или лишние убрать... Мозг кипит!

Вот программа: proga.rar

Только там 2 .exe файла, правельный будет Project1

Заранние благодарен!!!

[Sibedir]

Конечно не будет работать. И зачем вы опять где попало понаставили begin'ов и end'ов?

А вот это что за чудо?

procedure TForm1.Button1Click( Sender: TObject);
var
 I,J,K, Temp : integer;
 qwest : string;
 label GotoLabel;
  begin
    for l:=1 to Length(mass) do
      mass[l]:=random(13);
      for n:=1 to l do
        if mass[n]=mass[l] then Goto GotoLabel;
    end;

begin
...

а если учесть, что метка больше ни где не используется...
Короче, ,htl полый. это. все. равно. что Кулер к материнке на саморезами прикручивать (видал както фотокарточку) или как писать это придЛАЖенье.

[Vadja-Son]

я теперь уже и сам не понемаю где я понаставил лишних begin'ов и end'ов!!!

А вот это что за чудо?
Код:

procedure TForm1.Button1Click( Sender: TObject);
var
I,J,K, Temp : integer;
qwest : string;
label GotoLabel;
begin
for l:=1 to Length(mass) do
mass[l]:=random(13);
for n:=1 to l do
if mass[n]=mass[l] then Goto GotoLabel;
end;

begin
...

это я пытался прописать массив, который сохроняет всё что уже было (тоесть вопросы на клике Botton1), видимо из-за этого всё и полетело... я с массивами на вы, поэтому всё так и недолуго.

Вы мне может что-нибудь посоветуете?? У меня мозг кипит