images amklicken und variable wert zuweisen

[Sharky]

Hai Nachbar22,

ersteinmal Herzlich Willkommen in der Delphi-PRAXIS.

Ich habe das zum Spass mal so gemacht:

Delphi-Quellcode:

var
  bimgclick: array[0..2] of Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bimgclick[0] := False;
  bimgclick[1] := False;
  bimgclick[2] := False;
  image1.Tag := 0;
  image2.Tag := 1;
  image3.Tag := 2;
  image1.OnClick := ImageClick;
  image2.OnClick := ImageClick;
  image3.OnClick := ImageClick;
end;

procedure TForm1.ImageClick(Sender: TObject);
var
  ndx,
    ianzahl: Integer;
begin
  ianzahl := 0;
  bimgclick[(Sender as TImage).Tag] := not (bimgclick[(Sender as TImage).Tag]);
  for ndx := 0 to 2 do
    begin
      if (bimgclick[ndx]) then
        begin
          inc(ianzahl);
        end;
    end;
  Label1.Caption := IntToStr(ianzahl);
end;