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

[Vadja-Son]

Всем привет!

Немогу сделать одну задачку. Скажем есть 3 Label, пускай они будут называтся Label1, Label2 и Label3. Нажимаем конпу, пускай она будет Button1, и у Label1 фон становится красным, тоесть:

begin
 Label1.Color:=clRed;
end;

Как сделать, чтобы при повторном нажатии этой же кнопки Button1, он становится красным у Label2? Есчо раз нажимаем, и фон становится красным у Label3, и так далее....

Возможно ли это???

[evg_m]

можно сделать так

if label2.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]

Точнее так:

if Label3.Color=clRed then
  begin
    Label3.Color:=Form1.Color;
    Label1.Color:=clRed;
  end else
    if Label1.Color=clRed then
    begin
      Label1.Color:=Form1.Color;
      Label2.Color:=clRed;
    end else
      if Label2.Color=clRed then
      begin
        Label2.Color:=Form1.Color;
        Label3.Color:=clRed;
      end else Label1.Color:=clRed;

(После окрашвания 3-ого, закрашивается 1-ый)

[Sibedir]

Ну ребят, вы чему людей учите? Мы ж не индусы.

var
  Labels: array of TLabel;
  LabelIndex: Integer;
  Col: TColor;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (Labels, 3);
  Labels [0] := Label1;
  Labels [1] := Label2;
  Labels [2] := Label3;
  LabelIndex := 0;

  Randomize;
  Col := clRed;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if LabelIndex > -1 then begin
    Labels [LabelIndex].Color := Col;
    if LabelIndex = Length(Labels)-1 then begin
      LabelIndex := 0;
      Col := TColor (Random ($FFFFFF));
    end
    else begin
      Inc (LabelIndex);
    end;
  end;
end;

FormCreate можно сделать и так. Тут уже все от случая зависит.

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  SetLength (Labels, 0);
  LabelIndex := 0;
  for i := 0 to ComponentCount-1 do begin
    if Components[i] is TLabel then begin
      Inc (LabelIndex);
      SetLength (Labels, LabelIndex);
      Labels [LabelIndex-1] := TLabel (Components[i]);
    end;
  end;
  if LabelIndex > 0 then
    LabelIndex := 0
  else
    LabelIndex := -1;

  Randomize;
  Col := clRed;
end;

Есть еще хороший вариант с очередью, но это если вам нужно именно один проход сделать.

[Vadja-Son]

Большое спасибо всем!

Но я забыл указать один интендент в задачке - при каждом нажатие кнопки, загарается только 1 Label, тоесть:

Button1 нажали, фон становится красным у Label1.
Снова Button1 нажали, фон становится красным у Label2, а у 1 Label возврощается исходный.
Снова Button1 нажали, фон становится красным у Label3, а у 2 Label возврощается исходный.
и.т.д.

Кстати, все 3 варианта неработают.
Варинаты

856100

и

evg_m

в результати выходит всё как у меня, загарается только 1 Label.

Вариант Sibedir вообще не работает, он мне выдаёт ошибку на implementation

[Sibedir]

Код модуля (ВЕСЬ) в студию. Чаво эт там у меня не работает?

[Vadja-Son]

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

unit Unit1;

interface

...
бла бла бла
...

  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click( Sender: TObject);
var
  qwest : string;
  I,J,K, Temp : integer;
begin
 EditQuestion.Clear;
 QueryQuestion.SQL.Clear;
 qwest:=('SELECT TOP 1 * FROM Questions where ID ORDER BY RND(id);');
 QueryQuestion.SQL.Add(qwest);
 QueryQuestion.Active := true;
 if (not QueryQuestion.eof)then
  begin
   if QueryQuestion.eof then Application.MessageBox('Apsveicu! Spele ir pabeigta', 'Tu uzvareji', MB_OK);
  end;

 // massiv otvet
 //  pravelnij otvet - pervij!!!!!!!!!
 M[1] := QueryQuestion.FieldByName('TrueAsk').AsString;
 for I := 2 to CountAnswer do
   M[I] := QueryQuestion.FieldByName('FalseAsk'+Trim(IntToStr(I-1))).AsString;

 for I := 1 to CountAnswer do
     Indx[I] := I;

 //masiv s Index
 for J := 1 to 50 do
   for I := 1 to CountAnswer do begin
     repeat
       K := Random(CountAnswer)+1;
     until K<>I;
     Temp := Indx[K];
     Indx[K] := Indx[I];
     Indx[I] := Temp
   end;
   begin
         Variant1.Caption := '1 Variants';
         Variant2.Caption := '2 Variants';
         Variant3.Caption := '3 Variants';
         Variant4.Caption := '4 Variants';
      end;
 EditQuestion.Text := QueryQuestion.FieldByName('Question').AsString;
 Memo1.Lines.Text := M[Indx[1]];
 Memo2.Lines.Text := M[Indx[2]];
 Memo3.Lines.Text := M[Indx[3]];
 Memo4.Lines.Text := M[Indx[4]];

 begin
  Label4.Caption:='Laipni ludzam uz speli kas grib klut par miljonari';
  Label5.Caption:='Spiediet uz taustinu Uzdot jautajumu ';
  Label6.Caption:='Jums jaizvelas vienu no cetriem variantiem';
  Label7.Caption:='Jus varat izmantot papildiespejas';
end;
begin
 if label9.color<>clred then label8.color:=clred
 else  if label10.color <>clred then label9.color:=clred
 else if label11.color <>clred then label10.color:=clred
 else showmessage('poluchilosj');

end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var I : integer;
begin
 Randomize;
 Memo1.Lines.Clear;
 Memo2.Lines.Clear;
 Memo3.Lines.Clear;
 Memo4.Lines.Clear;
 ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
      ExtractFilePath(Application.ExeName)+'Data.mdb;Persist Security Info=False';
 ADOConnection1.Connected:=true;
 for I := 1 to CountAnswer do
     Indx[I] := 0;
 Variant1.Tag := 1;
 Variant2.Tag := 2;
 Variant3.Tag := 3;
 Variant4.Tag := 4;
end;

// u knopok Tag
procedure TForm1.VariantCheckClick(Sender: TObject);
var ButtonTag : integer;
begin
   // proverka pravelnosti
   ButtonTag := TButton(Sender).Tag;
   if (ButtonTag<=0) or (ButtonTag>CountAnswer) then begin
     Application.MessageBox('Sis  variants nav iespejams!', 'Kluda', MB_ICONSTOP or MB_OK);
   // oshibka programmista v tagah
     Exit;
   end;

   if Indx[ButtonTag] = 0 then begin
     Application.MessageBox('Jautajums vel nav uzdots!', 'Kluda', MB_ICONSTOP or MB_OK);
     Exit;
   end;

   if Indx[ButtonTag]=1 then
     Application.MessageBox('Apsveicu! Atbilde ir pareiza', 'Informacija', MB_OK)
   else begin
     Application.MessageBox('Atbilde nav pareiza! Spele ir pabeigta, pamegini velreiz!', 'Tu zaudeji', MB_ICONSTOP or MB_OK);
     Application.Terminate;
   end;

end;

...
бла бла бла
...

end.

такс

procedure TForm1.Button1Click( Sender: TObject);

в эту кнопку мне нужно встваить... у меня 12 Label

Нажал Button, Label8 красный, есчо раз нажал, Label9 красный, а Label8 изночальный (тоесть серый), есчо раз нажал, Label10 красный, а Label9 изночальный (тоесть серый), есчо раз нажал, Label11 красный, а Label10 изночальный (тоесть серый), есчо раз нажал, Label12 красный, а Label11 изночальный (тоесть серый), есчо раз нажал, Label13 красный, а Label12 изночальный (тоесть серый), есчо раз нажал, Label14 красный, а Label13 изночальный (тоесть серый), есчо раз нажал, Label15 красный, а Label14 изночальный (тоесть серый), есчо раз нажал, Label16 красный, а Label15 изночальный (тоесть серый), есчо раз нажал, Label17 красный, а Label16 изночальный (тоесть серый), есчо раз нажал, Label18 красный, а Label17 изночальный (тоесть серый), есчо раз нажал, Label19 красный, а Label18 изночальный (тоесть серый), есчо раз нажал, все Label изночальные (тоесть серые).

воть

[Sibedir]

Не. Давай так. Ты вставляешь после implementation мой

var
  бла бла бла

А после begin'ов в FormCreate и Button1Click вставляешь мой код. И все работает.

[Vadja-Son]

Всё сделал.

Нажимаю на кнопку, а он мне Error LabelIndex...

Или я тупой, незнаю чегото

просто мне кажется LabelIndex вместо Index должен быть номер Label

[Vadja-Son]

errror.jpg
ну какбы вот