[ segment @ 13.11.2014. 12:45 ] @
Pocituvani,
imam i: array[1..100] of tbitbtn;
i vo runtime kreiram nekolku bitbtn, kako da definiram sto da se pravi na onClick.
Propertis se mozam da definiram no Events nemozam :( t.e. ne znam kako
Odnapred Vi Blagodaram na pomosta
[ captPicard @ 13.11.2014. 15:00 ] @
http://stackoverflow.com/questions/22710236/creating-a-new-btnclick-procedure-for-a-dynamic-button

Evo, možda pomogne.
[ segment @ 16.11.2014. 16:11 ] @
Ova e ok,
megutoa kako da znam od taa niza na button-i koj tocno e kliknat zasto vo zavisnost od toa treba da se izvrsi nekoja akcija
[ captPicard @ 16.11.2014. 19:21 ] @
Code (delphi):
type
  TfrmSale = class(TForm)
    redOutput: TRichEdit;
    btnBuy: TButton;
    procedure btnBuyClick(Sender: TObject);     <<--- link made in designer
  private                                      VVVVV-- from here on it's
    pnlSale : TPanel;                                  your responsibility
    edtQuantity : TEdit;
    rgpOptions : TRadioGroup;
    btnSelect : TButton;
    [b]procedure btnSelectCick(Sender: TObject);[/b]  <<-- link must be made in code
  public
    { Public declarations }
  end;

var
  frmSale: TfrmSale;

implementation

{$R *.dfm}

procedure TfrmSale.btnBuyClick(Sender: TOBject);
begin
  pnlSale := TPanel.Create(frmSale);
  pnlSale.Parent := frmSale;
  pnlSale.Left := 10;
  pnlSale.Top := 10;
  pnlSale.Width := 350;
  pnlSale.Height := 250;
  pnlSale.Visible := True;

  edtQuantity := TEdit.Create(pnlSale);
  edtQuantity.Parent := pnlSale;
  edtQuantity.Left := 50;
  edtQuantity.Top := 60;
  edtQuantity.Width := 80;
  edtQuantity.Height := 20;
  edtQuantity.Text := '
Quantity';
  edtQuantity.Visible := True;

  rgpOptions := TRadioGroup.Create(pnlSale);
  rgpOptions.Parent := pnlSale;
  rgpOptions.Left := 30;
  rgpOptions.Top := 100;
  rgpOptions.Width := 300;
  rgpOptions.Height := 140;
  rgpOptions.Visible := True;
  rgpOptions.Caption := '
Options';
  rgpOptions.Items.Add('
Screws 12mm');
  rgpOptions.Items.Add('
Canned Peaches 250g');
  rgpOptions.Items.Add('
Tomatoes');
  rgpOptions.Items.Add('
Spaghetti 500g');
  rgpOptions.Items.Add('
Twin Flex 5m');
  rgpOptions.Items.Add('
Clear Glue 250ml');

  btnSelect := TButton.Create(frmSale);
  [b]btnSelect.OnClick:= btnSelectCick;[/b][u][/u]   <<-- Assign the button handler
  btnSelect.Parent := frmSale;
  btnSelect.Left := 130;
  btnSelect.Top := 260;
  btnSelect.Width := 80;
  btnSelect.Height := 40;
  btnSelect.Caption := '
Select';
  end;

procedure TfrmSale.btnSelectClick(Sender: TOBject);
begin
  redOutput.Lines.Add(rgpOptions.Lines[rgpOptions.ItemIndex]);  <<-- DRY
end;
[ segment @ 16.11.2014. 20:06 ] @
Da ova bese se ok samo mene mi trebase za nepoznat broj na kopcinja t.e. jas imav
k1: array[1..200] of TBitbtn;

t.e. ova mi falese

procedure Tstatus_sobi_frm.k1click(sender:TObject);
var b: TBitBtn;
begin
b := Sender as Tbitbtn;

Sega mozam da kalkuliram so b kade spored nazivot odam na opredeleni akciii

Fala za pomosta
[ dusans @ 16.11.2014. 21:18 ] @
Možeš da koristiš Tag property da bi preneo neku informaciju.