Dinamicki kreirani bitbtn

Dinamicki kreirani bitbtn 13.11.2014. u 13:45 · pre 145 meseci #1

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

Re: Dinamicki kreirani bitbtn 13.11.2014. u 16:00 · pre 145 meseci #2

http://stackoverflow.com/questions/22710236/creating-a-new-btnclick-procedure-for-a-dynamic-button

Evo, možda pomogne.

Potpis

F

Re: Dinamicki kreirani bitbtn 16.11.2014. u 17:11 · pre 145 meseci #3

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

Re: Dinamicki kreirani bitbtn 16.11.2014. u 20:21 · pre 145 meseci #4

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;

Potpis

F

Re: Dinamicki kreirani bitbtn 16.11.2014. u 21:06 · pre 145 meseci #5

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

Re: Dinamicki kreirani bitbtn 16.11.2014. u 22:18 · pre 145 meseci #6

Možeš da koristiš Tag property da bi preneo neku informaciju.

Forum kao aplikacija na telefonu

Srodne teme