Jedna procedura pro 49 Buttonů – Delphi – Fórum – Programujte.com

Ahoj chtěl sem se zeptat, mám za úkol vytvořit program: 

1. Vytvořte aplikaci, která za běhu vytvoří pole 7x7 komponent typu TButton jako tiket sportky. Popiska každého tlačítka jsou postupně čísla 1..49
2. Po aktivaci volby „zadej sportku“, uživatel klikem na zvolené tlačítko s číslem, volí postupně 7 čísel a volené čísla zvýrazní vhodným způsobem. Vytvoří tak svoji „sázenku“

Když sem si vytvořil toto pole 7x7, je nějaká možnost, jak si ulehčit práci a naprogramovat proceduru, která při OnClick na jakékoliv tlačítko by zapsala jeho caption do pole, nebo musím dělat 49x OnClick zvlášť ? Děkuji :)

Parametr funkce OnClick je objekt (Sender), který událost vyvolat. Přetypováním na TButton se dostaneš i na jeho Caption.

 takhle to mam rozpracovaný a potřeboval bych vědět spíš syntaxi, pro to jak každýmu byttonu přiřadit na click nějaký pole[i]:=button(i).caption :)// nebo nevim jak zadat ítej button 

procedure TForm1.FormCreate(Sender: TObject);
var //cisla:Tbutton;
    i,j:integer;
    point:integer;

begin
    point:=1;
    for i:=1 to 7 do
      begin
          for j:=1 to 7 do
           begin
              Buttony[i,j]:=TButton.Create(self);
              with Buttony[i,j] do
                begin
                Parent := Self;
                Left := 20 + j * 50;
                Top := 20 + i * 50;
                Width := 50;
                Height := 50;
                Caption := IntToStr(point);




                end;
                inc(point);
           end;
      end;
end;

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ButtonsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMainForm: TfMainForm;

implementation

{$R *.dfm}

const
  buttons_hor = 7;
  buttons_ver = 7;

var
  Buttony: Array[1..buttons_hor,1..buttons_ver] of TButton;
  Pole: Array[1..buttons_hor * buttons_ver] of String;

procedure TfMainForm.ButtonsClick(Sender: TObject);
begin
Pole[(Sender as TButton).Tag] := (Sender as TButton).Caption;
end;

procedure TfMainForm.FormCreate(Sender: TObject);
var
  i,j:    Integer;
begin
For i := 1 to buttons_ver do
  For j := 1 to buttons_hor do
    begin
      Buttony[i,j] := TButton.Create(Self);
      With Buttony[i,j] do
        begin
          Parent := Self;
          Left := 20 + (j - 1)  * 50;
          Top := 20 + (i - 1) * 50;
          Width := 50;
          Height := 50;
          Tag := ((i - 1) * buttons_ver) + (j - 1) + 1;
          Caption := IntToStr(Tag);
          OnClick := ButtonsClick
        end;
    end;
end;

end.

Ze zadání mi není úplně jasné, co se má po stisku tlačítka stát. Ale to, na co se ptáš, tam je, tak zbytek si předpokládám upravíš.

#4 Sniper
Díky :)

#4 Sniper
1. Vytvořte aplikaci, která za běhu vytvoří pole 7x7 komponent typu TBitButton jako tiket sportky. Popiska každého tlačítka jsou postupně čísla 1..49
2. Po aktivaci volby „zadej sportku“, uživatel klikem na zvolené tlačítko s číslem, volí postupně 7 čísel a volené čísla zvýrazní vhodným způsobem. Vytvoří tak svoji „sázenku“
3. Volba jednotlivých čísel ať se dá opakovaným klikem zrušit a počet navolených čísel nepřekročí 7.
4. Potvrzení sázenky ať se zadá klikem na vhodně umístěné tlačítko a sázenku ať si program pamatuje. Počet registrovaných sázenek je max. 50.
5. Tlačítko „TAH SPORTKY“ vygeneruje 7 navzájem různých čísel a zobrazí je výrazně v listboxu vedle sportky
6. Po vygenerování TAHu ať je vhodným způsobem oznámeno jestli nějaká sázenka vyhrává 1. cenu a kolik sázenek celkem bylo podáno
7. Volba NOVÁ HRA ať zahajuje „sazkový týden“